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its progenitor. (Code continued in next issue.) 

ABOUT F83's WORDS - TIMOTHY HUANG 
26 

What happens when you execute word S? F83 ' s vocabulary list buffets our biological buffers with more information 
than called for by most occasions and most users. A different implementation of the WORDS mechanism allows the 
original function, or an optional display of selected keywords. 



DESIGNING DATA STRUCTURES - MIKE ELOLA 
31 

Object-oriented programming and data abstraction make data structures easier to port. Forth applications use such 
techniques, even if Forth itself remains essentially unchanged. Like factoring, object programming can be imple- 
mented as a design philosophy rather than as an imposition of a foreign syntax. 



Editorial 
4 

Best ofGEnie 
35 

Advertisers Index 
24 

FIG Chapters 
38 



Volume X, Number 3 



3 



Forth Dmensions 



Editorial 



O tacks of stacks... Our pages usually 
tend more toward the eclectic than to the 
thematically ordered, but this issue is an ex- 
ception. The trio of stacks presented here 
may inspire you to rethink two of Forth's 
fundamental characteristics: explicit con- 
trol of stack operations and the ability to 
recompile Forth. These authors remind us 
that special-purpose stacks can be created 
as easily as other routines. Study these 
ideas and exercise the code; add some 
backspin of your own and, of course, let us 
know what happens! 

Our best wishes go to Ron Braithwaite 
and his wife, Liz, on their recent marriage. 
Ron is a long-time inhabitant of the Forth 
community who found a challenge in 
Forth's lack of uniform (or any) string 
operators. His comprehensive solution 
couples a string stack with operators based 
on the noteworthy string features found in 
MUMPS. The code for this package is a bit 
lengthy for our format, so about half is 
presented here, with the rest following in 
the next issue. Those of you who get on-line 
with the Forth Interest Group's GEnie 
RoundTable can download the code from 
its software library. 



I've been thinking of the Forth 
programmer's relationship to hardware 
and to the art of problem solving. He is 
unrestrained from exploration and trial im- 
plementation, in a system which accommo- 
dates the oddest whims with minimal pen- 
alty. Like the driver of a fine sports car, he 
is aligned with the working hardware and 
can wring out its best performance. Be- 
cause the Forth virtual machine is so 
closely attuned to the physical architecture, 
the programmer can "feel the pavement," 



and judge the balance between finesse and 
power. Which, as Mahlon Kelly points out 
("Best of GEnie," this issue), m^es Forth 
the ideal adjunct to computer science 
classes. 

The short-term trend in microcom- 
puting seems to favor power and control 
over elegance and intimacy. Like the 
much-maligned male of the eighties, we 
must find the harmonious relationship of 
these qualities. Increasingly complex oper- 
ating systems and interfaces barricade 
many systems with protocols and black 
boxes, while even the big Apple presents 
Unix "for the rest of us." We are drawn into 
designs conceived by committee, imple- 
mented in pieces too removed from both 
the problem and the solution, and spot- 
welded into place by other teams working 
under management whose chief task is to 
maintain organizational dynamics and to 
fight entropy. 

In the Forth world, there will always be 
opportunities for a single person to make a 
significant contribution. It is an arena for 
the programmer who remembers that, 
when microcomputers were developed, it 
was about much more than squeezing a 
mainframe into a smaller box — it was 
about personal freedom. 

— Marlin Ouverson 
Editor 
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Forth-83 

CONVENIENT 

EXTRA STACK 



VICTOR H. YNGVE - CHICAGO. ILLINOIS 
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n # 7 

Extra stack optional debugging addendum Forth-83 2/8/87 vhy) 
X? ( lower higher -- ) U< NOT ABORT" XSTACK limits" ; 
>X XSTACK @ XSTACK XSIZE 2 * + X? ( Check max addr) 

2 XSTACK +! XSTACK @ ! ; 



X> XSTACK @ XSTACK OVER X? 

g -2 XSTACK +! ; 
X@ XSTACK @ XSTACK OVER X? 

@ ; 

XPICK XSTACK @ SWAP 2 * - 

DUP XSTACK @ 2+ X? 

XSTACK OVER X? % ; 
.X CR ." XSTACK: " 

XSTACK DUP ? = 

IF Empty" 

ELSE XSTACK g XSTACK DO I 2+ 
THEN CR ; 



( Check against min addr) 
( Check against min addr) 



( Check against stack top) 
( Check against min addr) 
( XSTACK dump) 



2 +LOOP 



H ere is a little confection, an extra 
stack that adds features of convenience to a 
textbook example, making it into a useful 
programming utility. 

Using this extra stack is simple. In anal- 
ogy to the return-stack words >R, R>, and 
RS, one writes >x, x>, and xe. Several 
additional words are provided also. 
XCLEAR clears the extra stack. This is 
needed because, unlike the parameter stack 
and the return stack, the extra stack is not 
automatically cleared or reset after an error. 
In analogy to the parameter-stack words 
p ICK and DEP TH, one can use XP ICK and 
XDEPTH. Of course, xpick yields the 
same results as xG , and n xp i CK copies the 
nth item from the extra stack to the top of 
the parameter stack. For added 
convenience, . X is provided to dump the 
contents of the extra stack. 

There are many uses for an extra stack. 
It can be used for temporary storage in 
place of the return stack in cases where >R 
and R> cannot be used because the return 
stack would be left unbalanced, or because 
there would be interference with loop limits 
and indices, or with words that expect to 
find a return on the return stack. 

For complex deflnitions with several 
input parameters, some can be moved to the 
extra stack and retrieved as needed, thus 
simplifying the definition by reducing the 
number of items that have to be juggled on 
the parameter stack. 

Alternatively, some words can expect 
to find their input parameters on the extra 
stack, and could leave their results there, 
thus reserving the parameter stack as an 
internal calculation stack. 

An extra stack has advantages over 
variables for these purposes. It is reuseable 
by several nested words without interfer- 



ence and it does not, like separate variables, 
need separate names. 

The size of the extra stack is determined 
by the constant XS I ZE on screen six. This 
is shown set to three as an aid in checking 
out the stack words. After checkout, it 
should be set to the size needed for the 
application. 



This stack works with a stack pointer 
rather than with a stack address and offset. 
The first cell in the stack array xstack 
contains the stack pointer, which is the 
address of the top item on the stack rather 
than the first free cell, as is sometimes the 
case with stack pointers. Thus, the code for 
>x first increments the stack pointer by two 
(Continued on page 10.) 
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YES, THERE IS A BETTER WAY 
A FORTH THAT ACTUALLY 
DELIVERS ON THE PROMISE 

^^Vforth 

POWER 

HS/FORTH's compilation and execution speeds are 
unsurpassed. Compiling at 20,000 lines per minute, it 
compiles faster than many systems link. For real jobs 
execution speed is unsurpassed as well. Even non- 
optimized programs run as fast as ones produced by 
most C compilers. Forth systems designed to fool 
benchmarks are slightly faster on nearly empty do 
loops, but bog down when the colon nesting level ap- 
proaches anything useful, and have much greater 
memory overhead for each definition. Our optimizer 
gives assembler language performance even for 
deeply nested definitions containing complex data and 
control structures. 

HS/FORTH provides the best architecture, so good that 
another major vendor "cloned" (rather poorly) many of 
its features. Our Forth uses all available memory for 
tioth programs and data with almost no execution time 
penalty, and very little memory overhead. None at all for 
programs smaller than 200kB. And you can resize seg- 
ments anytime, without a system regen. With the 
GigaForth option, your programs transparently enter 
native mode and expand into 1 6 Meg extended memory 
or a gigabyte of virtual, and run almost as fast as in real 
mode. 

Benefits beyond speed and program size include word 
redefinition at any time and vocabulary structures that 
can be changed at will, for instance from simple to 
hashed, or from 79 Standard to Forth 83. You can be- 
head word names and reclaim space at any time. This 
includes automatic removal of a colon definition's local 
variables. 

Colon definitions can execute inside machine code 
primitives, great for interrupt & exception handlers. 
Multi-cfa words are easily implemented. And code 
words become incredibly powerful, with multiple entry 
points not requiring jumps over word fragments. One of 
many reasons our system is much more compact than 
its immense dictionary (1 600 words) would imply. 

INCREDIBLE FLEXIBILITY 

The Rosetta Stone Dynamic Linker opens the world of 
utility libraries. Link to resident routines or link & remove 
routines interactively. HS/FORTH preserves relocata- 
bility of loaded libraries. Link to BTRIEVE METAWIN- 
DOWS HALO HOOPS ad infinitum. Our call and data 
structure words provide easy linkage. 

HS/FORTH runs both 79 Standard and Forth 83 pro- 
grams, and has extensions covering vocabulary search 
order and the complete Forth 83 test suite. It loads and 
runs all FIG Libraries, the main difference being they 
load and run faster, and you can develop larger applica- 
tions than with any other system. We like source code in 
text files, but support both file and sector mapped Forth 
block interfaces. Both line and block file loading can be 
nested to any depth and includes automatic path 
search. 



FUNCTIONALITY 

More important than how fast a system executes, is 
whether it can do the job at all. Can It work with your 
computer. Can it work with your other tools. Can it trans- 
form your data into answers. A language should be 
complete on the first two, and minimize the unavoidable 
effort required for the last. 

HS/FORTH opens your computer like no other lan- 
guage. You can execute function calls, DOS com- 
mands, other programs interactively, from definitions, 
or even from files being loaded. DOS and BIOS function 
calls are well documented HS/FORTH words, we don't 
settle for giving you an INTCALL and saying "have at it". 
We also include both fatal and informative DOS error 
handlers, installed by executing FATAL or INFORM. 

HS/FORTH supports character or blocked, sequential 
or random I/O. The character stream can be received 
from/sent to console, file, memory, printer or com port. 
We include a communications plus upload and down- 
load utility, and foreground/background music. Display 
output through BIOS for compatibility or memory 
mapped for speed. 

Our formatting and parsing words are without equal. In- 
teger, double, quad, financial, scaled, time, date, float- 
ing or exponential, all our output words have string 
formatting counterparts for building records. We also 
provide words to parse all data types with your choice of 
field definition. HS/FORTH parses files from any lan- 
guage. Other words treat files like memory, nn@H and 
nn IH read or write from/to a handle (file or device) as 
fast as possible. For advanced file support, HS/FORTH 
easily links to BTRIEVE, etc. 

HS/FORTH supports text/graphic windows for MONO 
thru VGA. Graphic drawings (line rectangle ellipse) can 
be absolute or scaled to current window size and 
clipped, and work with our penplot routines. While great 
for plotting and line drawing, it doesn't approach the ca- 
pabilities of Metawindows (tm Metagraphics). We use 
our Rosetta Stone Dynamic Linker to interface to Meta- 
windows. HS/FORTH with MelaWindows makes an un- 
beatable graphics system. Or Rosetta to your own 
preferred graphics driver. 

HS/FORTH provides hardware/software floating point, 
including trig and transcendentals. Hardware fp covers 
full range trig, log, exponential functions plus complex 
and hyperbolic counterparts, and all stack and compari- 
son ops. HS/FORTH supports all 8087 data types and 
works in RADIANS or DEGREES mode. No coproces- 
sor? No problem. Operators (mostly fast machine code) 
and parse/format words cover numbers through 1 8 dig- 
its. Software fp eliminates conversion round off error 
and minimizes conversion time. 

Single element through 4D arrays for all data types in- 
cluding complex use multiple cfa's to improve both per- 
formance and compactness. Z = (X-Y) / (X + Y) would 
becoded:XY-XY + /ISZ(16bytes) instead of:X@ 
Y@-X@Y@ + /Z!(26 bytes) Arrays can ignore 64k 
boundaries. Words use SYNONYMs for data type inde- 
pendence. HS/FORTH can even prompt the user for 
retry on erroneous numeric input. 

The HS/FORTH machine coded string library with up to 
3D arrays is without equal. Segment spanning dynamic 
string support includes insert, delete, add, find, replace, 
exchange, save and restore string storage. 

Our minimal overhead round robin and time slice multi- 
taskers require a word that exits cleanly at the end of 
subtask execution. The cooperative round robin multi- 
tasker provides individual user stack segments as well 
as user tables. Control passes to the next task/user 
whenever desired. 



APPLICATION CREATION TECHNIQUES 

HS/FORTH assembles to any segment to create stand 
alone programs of any size. The optimizer can use HS/ 
FORTH as a macro library, or complex macros can be 
built as colon words. Full forward and reverse labeled 
branches and calls complement structured flow control. 
Complete syntax checking protects you. Assembler 
programming has never been so easy. 

The Metacompiler produces threaded systems from a 
few hundred bytes, or Forth kernels from 2k bytes. With 
it, you can create any threading scheme or segmenta- 
tion architecture to run on disk or ROM. 

You can turnkey or seal HS/FORTH for distribution, with 
no royalties for turnkeyed systems. Or convert for ROM 
in saved, sealed or turnkeyed form. 

HS/FORTH includes three editors, or you can quickly 
shell to your favorite program editor. The resident full 
window editor lets you reuse former command lines and 
save to or restore from a file. It is both an indispensable 
development aid and a great user interface. The macro 
editor provides reuseable functions, cut, paste, file 
merge and extract, session log, and RECOMPILE. Our 
full screen Forth editor edits file or sector mapped 
blocks. 

Debug tools include memory/stack dump, memory 
map, decompile, single step trace, and prompt options. 
Trace scope can be limited by depth or address. 

HS/FORTH lacks a "modular " compilation environ- 
ment. One motivation toward modular compilation is 
that, with conventional compilers, recompiling an entire 
application to change one subroutine is unbearably 
slow. HS/FORTH compiles at 20,000 lines per minute, 
faster than many languages link — let alone compile! 
The second motivation is linking to other languages. 
HS/FORTH links to foreign subroutines dynamically. 
HS/FORTH doesn't need the extra layer of files, or the 
programs needed to manage them. With HS/FORTH 
you have source code and the executable file. Period. 
"Development environments " are cute, and necessary 
for unnecessarily complicated languages. Simplicity is 
so much better. 

HS/FORTH Programming Systems 

Lower levels include all functions not named at a higher 



level. Some functions available separately. 
Documentation & Working Demo 

(3 books, 1 000 + pages, 6 lbs) $ 95. 

Student $145. 

Personal optimizer, scaled & quad integer $245. 

Professional 80x87, assembler, turnkey, $395. 



dynamic strings, multitasker 
RSDL linker, 
physical screens 
Production ROM, Metacompiler, Metawindows 

$495. 



Level upgrade, price difference plus $ 25. 

OBJ modules $495. 
Rosetta Stone Dynamic Linker $95. 
Metawindows by Metagraphics (includes RSDL) 

$145. 

Hardware Floating Points Complex $ 95. 

Quad integer, software floating point $ 45. 

Time slice and round robin multitaskers $ 75. 



GigaForth (80286/386 Native mode extension) $295. 

HARVARD 
SOFTWORKS 

POBOX69 
SPRINGBORO, OH 45066 
(513)748-0390 
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Forth-79 

SHADOW STACKS & 

DOUBLE-PRECISION NUMBERS 

BARREL JOHANSEN - REDWOOD CITY, CAUFORNIA 



We. writing code fw controllers, 
there are times when I need to enter 
mixed-precision parameters. Mixing 
double- and single-precision numbers 
gets messy, and if I forget to enter the 
period on a double number, there won't be 
enough elements on the stack and the 
command will misbehave. 

It would be nice to be able to enter 
numbers without thinking too much about 
periods and stack effects. If I enter a value 
that is 16 bits or less without a period, my 
code should be smart enough to put a zero 
in the high word value of a double-preci- 
sion number. For instance, if a controller 
moves graphics from some large memory 
space to one of three video "pages," I 
would like to be able to enter the command 
as: 

<addr> <page> SHOW_VID 

The usual way to handle this is to 
require <addr> to be a double-precision 
number: 

100. 1 SHOW_VID 
1A7BF000. 1 SHOW_VID 

The more commands I have, the more 
difficult it is to keep track of the parame- 
ters which need periods. This process is 
especially error-prone when I am entering 
a value that can be represented by a single- 
precision number for a parameter that can 
handle double precision. It' s not so hard to 
remember to put the period after 
1 AVBFOOO, but when I enter 100, the pe- 
riod is easy to forget. 

The Forth-79-defined interpret 



has a very easy solution. See Figure One — 
note the drop before [compile] 
LITERAL. NUMBER always returns a 
double-precision number, and dpl is 
checked to see if a period was entered with 
the number. If a period wasn't entered, the 
high 16 bits of the double number are 
dropped. If I enter 12345, then 2345 is left 
on the stack and the 1 is dropped. If I enter 
1234, then a is dropped. 



^ Words that use 16-bit 
values will see normal 
stack effects.'^ 



But if that value could be saved and 
retrieved easily, I could always use a 16- or 
32-bit number for any parameter without 
entering a period, and the Forth word that 
uses it could get the high 16 bits only if it 
needed them. 

My solution is to construct a"shadow 
stack" to save the high 16 bits of any num- 
ber entered (converted from ASCII by 
NUMBER, via INTERPRET). The shadow 
stack pointer always tracks the main pa- 
rameter-stack pointer, so the low 16 bits and 
upper 16 bits of any number entered are 
always at the same relative position on the 
two stacks. The current value of the stack 
pointer also determines the stack pointer 
position for the shadow stack. As a conse- 
quence, any Forth word which leaves a 
number on the stack will also push the 
shadow stack pointer down, but the high 16 
bits on the shadow stack will never be used 



— only numbers entered from the key- 
board will produce usable entries on the 
shadow stack. 

Now, any time a number is on the 
stack, I can retrieve the high word 
"shadow" by entering @ SHADOW (as long 
as it was gotten via INTERPRET). 1 can 
also define some words to get the shadow 
word of the second and third numbers on 
the stack, called over_@ shadow and 
3PICK_@ SHADOW. 

Now, SH0W_VID can use the parame- 
ter stack and shadow stack — see Figure 
Two. 

The only problem with this technique 
is that it only works while interpreting. I 
can't simply compile a word like: 

: CUE_FRAME 

177 5F 000 3 SH0W_VID ; 

This is because the 1775F000 would 
only be compiled as FOOO. The 1 755 upper 
word would be lost, and the @ SHADOW in 
SH0W_VID wouldn't get the correct 
value. 

This type of compilation is rare in my 
application, but sometimes it is required. 
So I extend the shadow stack when used in 
compilation with a new type of "shadow 
literal." 

The definition above would have to be 
compiled as: 

: MY_W0RD 

[ 1775F000 ]S 3 
SH0W_VID ; 

I admit that this is not as compact a:s 
: My_WORD 

1775F000. 3 SHOW VID ; 
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But, since I am usually executing the word 
from an inteqjretive mode, the tradeoff 
makes sense.There are probably lots of 
extensions to this technique. For instance, 
a shadow stack could keep track of thepo- 
siaon of the decimal point in a list of 
double-precision numbers. 

This code could be used to make a 
psuedo-32-bit Forth. Any words that need 
to pass double-precision numbers can use 
the shadow stack, thereby eliminating the 
stack problems of mixed operators. The 
operation of +, -, *, and / could be 
redefined to deal with both the parameter 
stack and the shadow stack. This type of 
implementation would handle double- 
precision arithmetic in a different way. 
Words that only use the 16-bit values will 
see the normal stack effects, and words 
that need 32-bit results can get the high 
word off the shadow stack. 

(Screens begin on next page.) 



Barrel Johansen is currently a program- 
mer engineer at Orion Intruments. 



: <INTERPRET> 

BEGIN -FIND 

IF STATE < 
IF CFA , 

ELSE CFA EXECUTE 
THEN 

ELSE HERE NUMBER DPL @ 1+ 
IF [COMPILE] DLITERAL 
ELSE DROP [COMPILE] LITERAL 

\ High bits are dropped 

THEN 

\ if no "." is entered 

THEN 
AGAIN ; 

: INTERPRET <INTERPRET> ; 
\ Allows redefinition 



Figure One. Forth-79's INTERPRET per All About Forth (Glen B. Haydon, 
Mountain View Press). 



WE'RE LOOKING 
FOR A FEW GOOD 
^ HE^DS. 




Dash Find 

ASSOCIATES 

Forth Recruiters 

Under New Management 

70 Elmwood Ave./ Rochester, NY 1461 1/(716) 235-0168 



COMPLETE DEVELOPMENT SYSTEM 
FOR MACHINE CONTROL 
APPLICATIONS 




TiNY188 is a low cost "PC somewhat com- 
patible" engine for OEM controller applica- 
tions. A selection of high level languages is 
available in ROM. 

DDS188An optional development board with 
EPROM programmer, floppy disk controller 
and added memory, removes to lower target 
system cost. 

Prices start at $269 each/$99 at 1,000. 

Vesta Technology, Inc. 
(303) 422-8088 
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: SHOW_VID 


( addr page — ^)\ Display <page> from <addr> 


SET_PAGE 


\Use <page> to set the proper destination 


@ SHADOW SET_START 


HIGH \ Get high 1 6 bits of <addr> 


SET_START_LOW 


\Use <addr> on parameter stack for lower 




\ start_address 


DlSPLAy_PAGE ; 


\ Move data and show the page 



Figure Two. Example application of the "shadow stack." 



\ Shactow stack for 32-bit nuniber precision 
FORTH DEFINITIONS HEX 
CEIEATE SHADOW STACK 70 ALLOT 



drj 08Aug88 



SHADOW STACK 6C + CONSTANT TOP SHADOW 



SHADOW_PTR TOP_SHADOW ( - n) 



pointer . 



SO SP@ ; 

! SHADOW SHADOW PTR ! ; ( n -) 



\ Create a buffer area 
\ for shadow stack. 
\ Top of shadow stack. 

\ Coirpute shadow stack 

\ Leave addr on stack. 
\ Store into shadow stack. 



7 
8 
9 

A This screen creates a "shadow" stack that holds the upper 
B 16 bits of a number when the number put on the stack is not 
C entered with a "." to create a double number. 

D This stack ^^racks" the parameter stack with another pointer, so 
E at any time, the high 16 bits of any number the user enters on 
F the stack can be retrieved for any number on the stack. 



\ replacement for <INTERPBET> drj 08Aug88 

1 : <SHADCW_INTEP^PRET> 

2 BEGIN -FIND 

3 IF STATE @ < 

4 IF CFA , 

5 ELSE CFA EXECUTE 

6 THEN 

7 ELSE HERE NUMBER DPL @ 1+ 

8 IF [COMPILE] DLITERAL 

9 ELSE ISHADCW [COMPILE] LITERAL \ The only change 
A THEN 

B THEN 

C AGAIN ; 
D 

E ' <SHADOW_INTERPRET> CFA ' INTERPRET ! 
F 



NOW FOR IBM PC, XT, AT, PS2 
AND TRS-80 MODELS 1 ,3, 4, 4P 

The Gifted 
Computer 

1. Buy MMSFORTH before year's end, 
to let your computer work harder and 
faster. 

2. Then MMS will reward it (and you) 
with the MMSFORTH GAMES DISK, 
a $39.95 value which we'll add on at 
no additional chargel 

MMSFORTH Is the unusually smooth 
and complete Forth system with the 
great support. Many programmers report 
four to ten times greater productivity 
with this outstanding system, and MMS 
provides advanced applications pro- 
grams in Forth for use Isy beginners and 
for custom modifications. Unlike many 
Forths on the market, MMSFORTH gives 
you a rich set of the instructions, editing 
and debugging tools that professional 
programmers want. The licensed user 
gets continuing, free phone tips and a 
MMSFORTH Newsletter is available. 
The MMSFORTH GAMES DISK includes 
arcade games (BREAKFORTH, CRASH- 
FORTH and, for TRS-80, FREEWAY), 
board games (OTHELLO and TIC-TAC- 
FORTH), and a top-notch CRYPTO- 
QUOTE HELPER with a data file of 
coded messages and the ability to en- 
code your own. All of these come with 
Forth source code, for a valuable and 
enjoyable demonstration of Forth pro- 
gramming techniques. 
Hurry, and the GAMES DISK will be our 
free gift to you. Our brochure is free, 
too, and our knowledgeable staff is 
ready to answer your questions. Write. 
Better yet, call 617/653-6136. 




FOKTH 



and a free gift! 

GREAT FORTH: 

MMSFORTH V2.4 $179.95* 

The one you've read about in FORTH; A 
TEXT & REFERENCE. Available for IBM 
PC/XT/ AT/PS2 etc., and TRS-80 M.I, 3 
and 4 

GREAT MMSFORTH OPTIONS: 

FORTHWRITE $99.95* 

FORTHCOM 49.95 

DATAHANDLER 59.95 

DATAHANDLER-PLUS* 99.95 

EXPEPT-2 69.95 

UTILITIES 49.95 

'Single-computer, single-user prices; cor- 
porate site licenses from $1,000 additional. 
3W' format, add $5/disk; Tandy 1000, add 
$20, Add S/H, plus 5% tax on Mass. orders. 
DH+ not avail, for TRS-BOs. 

GREAT FORTH SUPPORT: 

Free user tips, MMSFORTH Newsletter, 
consulting on hardware selection, staff 
training, and programming assignments 
large or small. 
GREAT FORTH BOOKS: 

FORTH; A TEXT & REF $21.95* 

THINKING FORTH 16.95 

Many others in stock. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617/6S3-6136, 9 am - 9 pm) 
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NGS FORTH 

A FAST PORTff, 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEATURES 
INCLODE! 

•79 STANDARD 

•DIRECT I/O ACCESS 

•FULL ACCESS TO MS-DOS 
FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI-SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

•MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 
DEBUGGING AIDS 

•8088 ASSEMBLER 

•GRAPHICS & SOUND 

•NGS ENHANCEMENTS 

•DETAILED MANUAL 

•INEXPENSIVE UPGRADES 

•NGS USER NEWSLETTER 

A CCXfPLETE FORTH 
DEVELOPMENT SYSTEM. 

PRICES START AT $70 

MEW<«-HP-150 6 HP-110 
VERSIONS AVAILABLE 



m 



NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA, CA. 95055 
(408) 241-5909 



\ shadow stack, cont. 
: esHADOW SHADOW PTR 2- 



( -n) 



: OVER_@ SHADOW SHADOW_PTR @ ; 
( -n) 

: 3PICK_@SHAD0W SHADOW_PTR 2+ @ 
( -n) 

exit 



drj 08Aug88 
\ Get top number on shadow 
\ stack. 

\ Get second number on 
\ shadow stack. 
\ Get third number on 
\ shadow stack. 



The SHADOW_STACK is simply a buffer area that can exist anywhere 
in memory. Under normal situations, it is never more than about 
24 bytes deep. I have allotted it with eight more bytes than my 
parameter stack to give it a buffer for overflow and underflow, 
but ! SHADOW should be modified to check boundaries making 
it conpletely bulletproof. This version is written for 
readability, but it works for almost any situation. 



\ shadow literals 

1 ■ : <SLITERAL> STATE @ 
IF COMPILE LIT , COMPILE ! SHADOW 
THEN ; IMMEDIATE 



drj OBAugSB 



SLITEBAL STATE @ 

IF eSHADOW SWAP [COMPILE] LITERAL [COMPILE] <SLITERAL> 
THEN ; IMMEDIATE 



2 
3 
4 
5 
6 
7 
8 

9 : ]S ] [COMPILE] SLITERAL ; IMMEDIATE 
A exit 

B Shadow literals are used to compile double numbers for the 

C words that expect shadow stack numbers. For instance, SHOW_VID 

D could be compiled in a word like this: 

E : CUE_FRAME [ 4F143800 ]S 3 SHOW_VID ; 

F 



(Continued from page 5.) 

to point to the first unused cell, and then it 
stores the number from the top of the pa- 
rameter stack there. And the code for x> 
first fetches the top item from the extra 
stack to the parameter stack, and then dec- 
rements the stack pointer by two so that it 
points to the new top of the extra stack. 

Several of the words here are simplified 
by the choice of having the stack pointer 
point to the top cell: XCLE ar simply stores 
into this cell the cell's own address, so it 
points to itself. Also, x@ does not have to 
adjust the pointer, but simply executes 
XSTACK @ @. XPICK and XDEPTH are 
also made simpler by this choice. 



Screen seven redefines some of the 
stack words to include tests that all slack 
operations take place within the proper 
limits of the XSTACK array. These tests use 
the word X ?, which gives an error comment 
if the top number on the parameter stack is 
not larger than the one underneath. 

This screen can be loaded on top of the 
first one while debugging the program that 
uses the extra stack. The compiler com- 
ments during loading will remind the user 
to comment out the LOAD instruction for 
this screen on the load screen when the de- 
bugging is finished. 
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the tenth annual 



FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 25-27, 1988 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 

Theme: Forth and Artificial Intelligence 

Artificial intelligence applications are currently showing great promise when developers focus on easy-to-use 
software that doesn't require specialized expensive computers. Forth's design allows programmers to modify 
the Forth language to support the unique needs of artificial intelligence. Papers are invited that address 
relevant issues such as: 

Programming tools for AI 
Multiusers and multitasking 
Management of large memory spaces 
Meeting customer needs with Forth AI programs 
Windowing, menu driven or command line systems 
Captive Forth systems — operating under an OS 
Interfacing with other languages 
Transportability of AI programs 
Forth in hardware for AI 
System security 

Papers about other Forth topics are also welcome. Mail your abstract(s) of 100 words or less to FORML 
Conference, Forth Interest Group, P.O. Box 8231, San Jose, CA 95155. Completed papers are due 
November 1, 1988. 

Asilomar is a wonderful place for a conference. It combines comfortable meeting and living accommoda- 
tions with secluded forests on a Pacific Ocean beach. Registration includes deluxe rooms, all meals, and 
nightly wine and cheese parties. 

RESERVATIONS FOR TENTH FORML CONFERENCE 

Registration fee for conference attendees includes conference registration, coffee breaks, and notebook of 
papers submitted, and for everyone rooms Friday and Saturday, all meals from lunch Friday through lunch 
Sunday, wine and cheese parties Friday and Saturday nights, and use of Asilomar facilities. 

Conference attendee in double room - $275 • Non-conference guest in same room - $150 • Children under 17 
in same room - $100 • Infants under 2 years old in same room - free • Attendee in single room - $325 

Register by calling the Forth Interest Group business office at (408) 277-0668 or writing to: 
FORML Conference, Forth Interest Group, P.O. Box 8231, San Jose, CA 95155. 
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wise AND 

THE FORTH DILEMMA 

GLENB. HAYDON - LA HONDA, CAUFORNIA 



A orth is based on the philosophy of 
keeping things simple. Remember that 
something elegant can be simple. Simplic- 
ity does not necessairly mean primitive. 
But vendors feel obUgated to provide all of 
the utilities to which users have become ac- 
customed. These are mutually exclusive 
goals! It is a dilemma for the Forth commu- 
nity to decide which goal it wishes to serve. 
It has been a dilemma for WISC Technolo- 
gies, Inc. to decide how best to support its 
new computer architecture. 

Keep it Simple 

As many of you know, the origins of 
Forth were in running a real-time applica- 
tion at the "rug factory." There, the prob- 
lem was the overhead imposed by the exist- 
ing operating system. What evolved was a 
very simple, minimal program to avoid the 
operating system. In general, the simpler 
the program, the easier it is to maintain and 
support. Often it can be said that if 64Kb of 
program space is not enough, you probably 
do not understand the problem. Certainly, it 
is not efficient to allow programs to expand 
to fill the available space. 

The Problem 

The lack of acceptance of the Forth 
language among other computer program- 
mers is perhaps due to their perceived re- 
quirement of having available all the tools 
they have come to expect in other program- 
ming languages. Though the WISC archi- 
tecture was arrived at through an under- 
standing of Forth, the writeable instruction 
set makes it a powerful generic processor. 
Reluctance to adopt it because of its asso- 
ciation with Forth needs to be addressed, 
and a development environment designed 
to meet the expectations of programmers 



will be a big help. 

WISC's design of the hardware has 
been strictly with the goal of keeping the 
architecture as elegantly simple as pos- 
sible. As much as possible, assembling of 
hardware components with writeable in- 
structions has been left to the programmer. 
Thus, the concept of a soft-wired system is 
used. 

With the development of our products, 
the design has become less simple. For 
example, as we have progressed from the 
CPU/16 to the CPU/32 we have, of neces- 
sity, increased the complexity of the de- 
sign. It is much easier to route a single bus 
than multiple buses, especially when each 
bus is 32 bits wide. As we have progressed 
to the engineering implementation in siU- 
con, other capabiUties have been added. 
With each addition, the balance between 
increased complexity and maintenance of 
simplicity has been considered. 

Teaching Something New 

When it comes to making the system 
available to others, demands are made for 
something other than simplicity. Since mi- 
crocode must be written using some sort of 
development system, that system must 
meet the demands of those who will use it. 
As with the classical perspective of any 
teaching program, one must always start 
building on the knowledge and expecta- 
tions the students already have. 

In this case, the student is presumably a 
programmer akeady familiar with a com- 
puter system. He expects an operating sys- 
tem. He expects an editOT or word processor 
of some sort. He expects a large library of 
built-in functions. He expects an effective 
debugger. After all, how could he write a 
program which did notneed debugging? As 



illustrated by other papers at the Confer- 
ence, some programmers know how to 
type while others would rather chase icons 
around the screen with a mouse or perhaps 
some combination of typing and a mouse. 
Any development system meeting all the 
above requirements may never meet the 
philosophical goals of Forth. 

Programmer Psychology 

In many ways, the computer operating 
system is a sort of language, along with the 
programming language and the natural 
language used by the programmer. Prob- 
lems develop when the programmer is not 
a master of his system. Clearly, a person 
who is not a good touch typist will not be 
able to make effective use of keyboard 
commands. A person who does not have 
good dexterity with a mouse will find it a 
hindrance. 

These limitations, in large part, depend 
upon the unique way each individual's 
nerves are connected, as well as his train- 
ing. No two individuals are the same. I 
expect that part of the preference for a 
keyboard or a mouse is firmly rooted in the 
individual's capabilities and past experi- 
ence. It will never be possible to make all 
individuals the same, but the psychologi- 
cal mind set of our potential users must be 
addressed. 

Real World Requirements 

In the real world, a development sys- 
tem is required that will attract many pro- 
spective users. It is certainly not necessary 
to call such a development system Forth. 

The first requirement is that the devel- 
opment system run on some existing hard- 
ware with an already defined operating 
system. WISC has started with a host 
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based on the Intel processor, in the form of 
an IBM PC, XT, or AT running under PC- 
DOS. The original implementation of 
Forth on these processors served as a basis. 
With the PC-EOS operating system comes 
a file structure for the storage devices, 
which in its latest versions include directo- 
ries and subdirectories. Superimposed 
upon the initial Forth, then, is the require- 
ment of an effective implementation of 
access to that system of files. 

System files under PC-DOS are of vari- 
able length. Most programmers are already 
familiar with some sort of editor, often 
some variant of the well-known WordStar. 
But Forth, in its original form, had a rudi- 
mentary line editor and no files. The exter- 
nal storage device was directly accessed in 
sequential, fixed-length blocks of IK 
bytes. No file structure was imposed. This 
conflicts with current operating systems. 
One answer is to access IK blocks within 
system files, although that introduces more 
complexity. But using Forth blocks does 
have some advantages in the thinking proc- 
ess of the programmer. It tends to encour- 
age factoring of problems. 

However, this is more a consideration 
of programming style than the need of IK 
blocks. In open, free-form textfiles, there is 
no imposed discipline, i.e., no style is 
imposed. What is needed is the develop- 
ment of a free-form style of programming 
in standard text files. With variable-length 
text files, it is no longer necessary to sepa- 
rate the source code from help screens or 
shadow screens. In addition, a set of text 
vectors could be added with each new func- 
tion. All related material could be grouped 
in the same place. Thus, simply by adopting 
a style which includes all of the narrative 
documentation, source code, and test vec- 
tors as a unit, it will be more likely that the 
programmer will see that the documenta- 
tion is maintained. It is a simple matter to 
compile the source code directly from such 
files and skip the documentation data. This 
approach is completely different from the 
experience of many Forth programmers. 
Other programmers are accustomed to a 
style of programming for each language 
they use. A special style should not come as 
a shock to them. 

Standard Libraries 

Forth has no standard library of ex- 
tended functions. In part, this is because 
there has been no driving force as powerful 



as AT&T or IBM to produce the necessary 
libraries. But it must not be ignored that 
other programmers have come to expect 
these libraries. 

An important consideration here is how 
these libraries are used. With the ease and 
speed of compilation in Forth, there is little 
need to save object code. Source code in the 
above-suggested style will provide all of 
the necessary documentation and can sim- 
ply be compiled as needed. This avoids the 
necessity of a loader to make the object 
code relocatable. 

What tools? 

Forth as a new language is intimidating 
to many with previous programming expe- 
rience. The educational system in this coun- 
try has already indoctrinated students with 
BASIC, C, Pascal, FORTRAN, etc. in their 
many formal courses. The educational sys- 
tem does not offer students Forth as an 
alternative language. But Forth is no more 
complicated than BASIC or C as a pro- 
gramming language. It is just different, and 
people don't like to change. 

For a marketable development system, 
we must consider the potential user. If we 
want to survive, we must cater to his per- 
ceived needs. We may be confident he will 
not use many of the tools we might provide 
him after he learns to use the development 
system. But to sell the product, we must 
provide the perceived needs. For example, 
after the user has worked with the develop- 
ment system, he might learn that by utiliz- 
ing the convenient factoring techniques of 
Forth and a set of appropriate test vectors, 
he will have little if any need of a debugging 
suite. But to start with, that possibility is 
beyond any experienced programmer's 
conception. The problem is, who is going to 
take the time to write a program for sales 
purposes which he is confident will never 
be used? 

Learning from Others 

In spite of the opinions of many Forth 
programmers to the effect that non-Forth 
programmers have much to learn, it might 
just be that some Forth programmers could 
learn from the experience of others. This 
does not mean that a Forth programmer 
should make his Forth look like one of the 
other programming languages. The re- 
quirements imposed by compilers for other 
languages need not be imposed upon pro- 
grams written in Forth. 



Rather, the Forth programmer might 
discover new concepts if he were to under- 
stand why other languages are done the 
way they are. Most high-level languages 
were designed fOT specific applications 
with specific hardware. Some of these 
languages have migrated to other hardware 
and used for other applications. The more 
general the capabilities of a language 
compiler, the more complicated it be- 
comes. Forth has the capability of incre- 
mentally adding new compiler instructions 
to the compiler along with the program. 
This is a new experience for many non- 
Forth programmers. 

Actually, the C kernel is nearly as small 
as most Forth kernels. The C language 
must make use of a large number of add-on 
functions. In fact, the C kernel is so small 
that it cannot stand alone. There must at 
least be a set of standard I/O functions. 
There are more similarities than might at 
fu-st be apparent. 

Current WISC Development System 

Wise is aggressively working on a 
development system for use with our hard- 
ware products. Many of these thoughts are 
addressed in the pieces we have already in- 
corporated. Especially for the CPU/32, we 
must dispense with the 16-bit address 
space. A full, 32-bit, linear address space 
seems mandatory. Systems with only 16 
bits of address space will soon be obsolete. 
Let the implementation map the 32-bit 
address space into the segment and offset 
requirements of the Intel processors, if that 
is what is being used. 

Among the necessary libraries are a 
complete set of extended math and float- 
ing-point functions. Phil Koopman has 
written such a math library and placed it in 
the public domain. It includes efficient fac- 
toring and appropriate polynomials for the 
transcendental function. His library has 
been tested for over five years in a variety 
of applications, and appears to be essen- 
tially free of bugs. The floating-point val- 
ues are based on the IEEE short form, 
already an accepted standard in computing 
circles. Large parts of the package have 
been published in Forth Dimensions. 
Some vendors have adopted it, but others 
are reinventing the wheel. In the interest of 
furthering a well-tested, standard set of 
extended math and floating-point func- 
tions, WISC is making copies of the source 
code on PC-DOS formatted disks available 
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at this Conference. We hope this will con- 
tribute to the library of functions being de- 
manded by those who might use Forth. 

Another important set of functions 
should include an editor integrated with 
the compiler. Though it should be possible 
to use any editor or word processor to 
create the source files , having an integrated 
editor within the development system has 
many advantages. Such an editor could be 
used to indicate the beginning of an incre- 
mental compiling step, much like the use 
of the old blocks. And when compilation 
fails, the point of failure should be shown 
from wiUiin the editor, much like the 
WHERE function in older Forth implemen- 
tations. As suggested above, an editor 
based the common WordStar function 
might reduce the shock of having to learn 
another editor. WISC has such an editor 
operational, but it is not yet ready for 
release. 



Other Ubraries might include a familiar- 
appearing debugger, a common set of 
string-handling utilities, and more. The 
structure of the development system should 
allow easy expansion with other lilH'aries as 
they are identified, implemented, and well 
tested. 

Conclusions 

Keeping things simple does not mean 
that things are primitive. For the WISC 
processors to be accepted in the market- 
place, we must provide an acceptable de- 
velopment system, even if that system 
appears quite different from conventional 
Forth. We should build on the experience 
we have had with Forth. WISC is well along 
in writing a development system along the 
lines described in this paper. There is really 
no dilemma. The system will be simply 
elegant 



Glen B. Haydon is the president of 
WISC Technologies, and the author of 
All About Forth. This paper was origi- 
nally presented at the 1988 Rochester 
Forth Conference on programming 
environments; reprinted by permis- 
sion. 
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Forth-83 

USING A 

STRING STACK 



RON BRAITHWAITE - LOS ANGELES, CAUFORNIA 



'hile working on a project involv- 
ing very extensive string manipulation, I 
realized that traditional Forth techniques 
for working with strings are impractical 
when anything more than nominal string 
manipulation is required. This paper de- 
scribes words for the manipulation of 
strings using a string stack, including ex- 
tensive pattern-matching support 

Over the last two years, I have worked 
extensively with the MUMPS computer 
language, for a good portion of that time 
implementing a non-standard, standalone 
MUMPS environment (interpreter/com- 
piler/operating system) running in a multi- 
processor Data General MV20000 envi- 
ronment; and writing systems tools in a 
standard MUMPS environment in a clus- 
tered DEC VAX environment. 

Although MUMPS is a real dog in the 
performance department, it has many very 
useful features. The most striking charac- 
teristic of MUMPS is that all data types are 
treated as strings by the application pro- 
grammer (although they are maintained as 
separate data types internally). 

The project where I needed a string 
package was being done for Laboratory 
Microsystems, Inc.'s UR/Forth, PC/Forth 
3 .2, and PC/Forth+ 3 .2. LMI's versions of 
Forth have many excellent features, some 
of which are string related. However, the 
primary string-storage mechanism in the 
LMI products consisted of using a circular 
string buffer for temporary storage of 
strings. The problem with the string buffer 
approach is that the storage is very tempo- 
rary. Since strings are stored in a circular 
fashion and the string buffer is used by the 
operating system interface, it is likely that 
extensive use of the string buffer will cause 



CR . ( Loading STRING. 4TH ) CR 

( STRING. 4TH rdb 10/24/87 ) 

( Last revised: rdb 11/30/87 ) 

( This file contains various string stack operators and assumes) 
( the existence of several words not in the Forth-83 Standard: ) 
( -ROT, NIP, TUCK, NUMBER?, ?D0, CASE, OF, ENDOF, ENDCASE, >PTR) 
( ADDR>PTR, C0L, C!L, CMOVEL, and CMOVEL>. ) 



( MAX$ — addr 

( Contains the maxinrum number of strings on the string stack. 



VARIABI£ 



MAX$ 



( $0 ~ addr 

( Contains a pointer to the base of the string stack. 



VARIABLE 



$0 



( $P — addr 

( Contains a pointer to the top of the string stack. 



VARIABLE 



$P 



( $P! addr — 

( Sets the address of the string stack pointer. 



: $P! 



( addr 



) 



SP 



( $INIT addr n — addr' ) 

( Initializes the string stack for n strings with addr as the ) 

( highest address to use, returning the low address addr' used. ) 

: $INIT ( addr n — addr' ) 

TUCK MAX$ ! DUP $0 ! DUP $P! ( Stack base ) 

SWAP 256 * - DUP MAX$ 8 256 * BLANK ; ( Clear stack > 
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an overflow situation, overwriting one 
string with another. 

Let me make clear, however, that the 
string buffer approach is a very good one 
and is useful for most applications. In this 
case, though, I needed more permanent 
temporary storage. What jumped to mind 
was a string stack. 

This idea did not spring at me out of the 
clear blue sky. There have been at least 
thirteen papers on the subject, according to 
A Bibliography of Forth References (Third 
Edition, The Institute for Applied Forth 
Research). There have been numerous ar- 
ticles in Dr. Dobb' s Journal and Computer 
Language, as well. 

Most influential in this case was some 
unpublished work by John James, whose 
code provided a starting point for this pack- 
age. The Forth community is frequenUy 
accused of being more interested in rewrit- 
ing Forth than in actually doing applica- 
tions. I didn't want to fall into the trap of 
reinventing the wheel one more time, but 
no example available to me covered pattern 
matching beyond simple string compari- 
sons. Therefore, I combined many of the 
concepts I had encountered in MUMPS 
into a Forth package that is much faster and 
more compact than in a MUMPS environ- 
ment 

What came out of all this was a series of 
words which use a string stack and which 
can be divided into the following groups: 
memory words, stack words, manipulation 
words, conversion and display words, 
comparison words, defining words, and 
miscellaneous words. 

The only prerequisite for using these 
words is to execute $INIT with the num- 
ber of strings you want to allocate (I nor- 
mally specify three) and the highest address 
you wish to use — it will return the low 
limit of the string stack area. I tend to 
allocate work space starting from high 
memory and work down, so this seemed 
reasonable. 

About the Source Code 

The source code described in this docu- 
ment assumes the existence of the follow- 
ing words not in the Forth-83 Standard: 
-ROT, NIP, TUCK, NUMBER?, ?D0, 
CASE, OF, ENDOF, ENDCASE, @DATE, 
ADDR>PTR, >PTR, C@L, C!L, QL, ! L, 
CMOVEL, and CMOVEL>. The definitions 
of these words should be obvious and do 
not need to be explained here, since they 



( $0K? ..$--..$ I ) 

( Verifies that the string stack has not under/overflowed. If ) 

( an error condition exists, an error message is displayed and ) 

( the string stack is reset. ) 

: $0K? (..$—..$ I ) 

$P @ $0 @ 2DUP U> -ROT ( Undeflow? ) 

MAX$ @ 256 * ~ IK OR ( Overflow? ) 

IF $0 e MA>C$ e TUCK 256 * - SWAP $INIT ( Reinit ) 

CR ." String stack iinder/overf low" ABORT ( Error ) 

THEN 



( $P0 $ — $ str-^ ) 

( Returns the address of the string on top of the string stack.) 



$P@ 



( $ 



$ str'^ ) 



$P e 



( 1$ 1$ 0$ — 1$ 0$ str" ) 

( Returns the address of the string second on the string stack.) 

: 1$ (1$ 0$ — 1$ 0$ str'^ ) 

$P @ COUNT + ; 



( 2$ 2$ 1$ 0$ — 2$ 1$ 0$ str^ ) 

( Returns the address of the string third on the string stack. ) 

: 2$ (2$ 1$ 0$ — 2$ 1$ 0$ str" ) 

$P @ COUNT + COUNT + ; 



( N$ $.. n — $. . str'^ ) 

( Returns the address of the string nth on the string stack. ) 



: N$ ( S.. n 

$P @ SWAP 
?D0 COUNT + 
LOOP 



str'^ ) 



( Start at top ) 
( Get next str'') 



( $CNT $ . . n — $ . . cnt 

( Returns the count cnt for string n on the string stack. 



$CNT 



( $. 



$ cnt ) 



N$ C@ 



( $DEPTH $ . . — $ . . n 

( Returns the number n of strings on the string stack. 



: $DEPTH ( $ . . — $ . . n ) 

$0K? 
BEGIN DUP NS $0 @ U< 
WHILE 1+ 
REPEAT ; 



( Over/under? ) 



( Another? 
( Inc cnt 
( n on stack 
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have been discussed at length in the litera- 
ture. In addition, words manipulating date 
and time assume a specific format which is 
also explained in the code. This code runs 
on top of Laboratory Microsystems, Inc. 
UR/Forth, PC/Forth 3.2, and PC/Forth+ 
3.2. 

The basis for many of these words 
comes from John James' string package, 
written many years ago. The algorithm for 
$SOUNDEX came from Guy Kelly. The 
whole idea of soundex dates back to the 
1894 U.S. Census when they wanted to be 
able to find names that sounded alike. Since 
then it has been very widely used, but not 
adequately described. Although I could 
give the algorithm here, I think reading the 
code will do a better job of explaining it (I 
hope). 

The source code for this package is in a 
different format than what is usually found 
in Forth Dimensions: it is in an ASCII file 
format, rather than in screens. I use this 
approach because of my philosophy about 
programming. Instead of concentrating on 
communicating with the machine, I try to 
communicate with programmers. The 
machine needs nothing more than a single 
space between each token; people need 
things like comments, indentation, phras- 
ing, and so on. 

In a standalone Forth environment, 
blocks are appropriate, since the goal is 
minimal overhead. In an environment us- 
ing Forth running over an operating sys- 
tem, the operating system provides many 
services that we do not need to duplicate. 

Most modem Forths have a word called 
INCLUDE which loads the ASCII file 
named in the input stream. Two other 
words, SHELL" and ~SHELL provide 
hooks to the operating system, the first 
passing a string terminated by " to the 
command processor, while the second 
takes a counted string. 

If you reserve a portion of RAM as a 
disk and copy a good editor to it on start up, 
the speed of calling the editor and editing 
short ASCII files is as fast in most cases as 
using a block editor. The editor I use is 
invoked with the word ED, which can be 
defined as in Figure One. Although there 
are some very nice block editors out there, 
I am still faced with the fact that I work on 
a variety of projects. Only having to use one 
editor in several different environments 
just makes my life easier. 

Working with short ASCII files on a fast 



( .$s $.. — $.. ) 

( Non-destxructively displays the contents of the string stack. ) 



.$S 



( S.. — $. 

$DEPTH 

CR I 2 .R ASCII 
I N$ COUNT TYPE 
LOOP CR ; 



) 



?D0 



EMIT SPACE 



( Set up loop ) 
( CR, then I: ) 
( Print string ) 



( .$ $ -- 

( Displays and discards the top string on the string stack. 

: .S ( $ — ) 

$P@ COUNT 2DUP + $P! TYPE $0K? ; 



( $CNT@ addr cnt — $ 

( Copies cnt characters of the string at addr to the string 

( stack, converting it to a counted string. 

( 

( $CNT@ is equivalent to the LMI word STRPCK 

: $CNT@ ( addr cnt — $ ) 

TUCK $P@ OVER - DUP 1- $P ! SWAP CMOVE $P@ C! ; 



( $CNT! $ addr cnt — ) 

( Stores cnt characters of the string $ on top of the string ) 
( stack at the address addr. If cnt is greater than the nuittoer ) 
( of characters in $, the excess character positions are blank ) 
( filled. If cnt is less than the number of characters in $, ) 
( the string is truncated to cnt. ) 



$CNT! ( $ addr cnt — ) 

2DUP BLANK $P@ COUNT 2DUP + $P ! 
ROT MIN -ROT SWAP ROT CMOVE ; 



( Clear & drop ) 
( Move string ) 



( $@ addr — $ ) 

( Fetches the string $ pointed to by the address to the top of ) 
( the string stack. ) 

: $@ ( addr — $ ) 

DUP C@ 1+ $P@ OVER - DUP $P! SWAP CMOVE ; 



( $! $ addr — ) 

( Stores the string $ on top of the string stack as a counted ) 
( string at the address addr. ) 

: $! ( $ addr — ) 

$P@ DUP C@ 1+ ROT SWAP CMOVE $P@ COUNT + $P ! ; 



( $Z@ addr — $ ) 

( Returns the string $ on the string stack of the ASCIIZ ) 
( string at addr which is terminated by a null . ) 
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system is little different from using block 
ranges in a traditional Forth environment 
and allows the use of specialized tools 
available under DOS, that I don't have the 
time to recreate in Forth, 

Another thing which may prove a little 
disconcerting to many people in the Forth 
community is what appear to be long defi- 
nitions. Most of this comes from the fact 
that ASCII files allow a word which might 
be cramped on five or six lines to be spread 
out for readability. One of the definitions, 
$MATCH, really is quite long. In that case, 
the word is made up of ?D0 loops within 
a CASE statement within a ?D0 loop. I tried 
coding it several different ways, but this 
came out the cleanest I hope the tradition- 
alists will forgive me. 

There is a rule of thumb used for de- 
composition: Don't let a definition grow 
longer than one screen. I have a slightly 
different rule: Don't let a definition grow 
longer than what you can easily hold in 
your head. If you have to write down the 
stack contents while you are coding or de- 
bugging, the word is too long. This means 
that some words which may be much less 
than one screen need to be further decom- 
posed, while other words which are longer 
than one screen are just fine. The sole judge 
of this is you — just remember that your 
goal should be to communicate with an- 
other programmer, not just the machine. 

With that in mind, here is the source 
code for this package. I hope it will prove 
useful to some of you. I have interjected 
some comments in spots in order to expand 
on the comments embedded in the code. 

By the way, just because I have pre- 
sented a very complete string stack word 
set, only the words actually used find their 
way into the final application. During de- 
velopment, I load the whole thing. When 
the appUcation is complete, I comment out 
the words not used. 

I hope this package is of interest to you. 
If you have suggestions or comments, I 
would really like to hear them. I can rewrite 
just about anybody's code to make it 
tighter and faster. TTiat goes for just about 
anybody else with my code. Together, we 
learn. 



Glossary of String-Stack Commands 

$! $ addr — 

Stores the string on top of the string stack as a 

counted string at addr. 



: $Z@ ( addr — ^str ) 

HERE 1+ ROT 
BEGIN 2DUP C@ DUP 0<> 
WHILE SWAP C! ROT 1+ ROT 1+ ROT 1+ 
REPEAT 4DR0P HERE SWAP OVER C! $@ ; 



( Move to HERE ) 



( Until null 
( Inc cnt&ptr 
( Return $ 



( $Z! $ addr — 

( Store the string $ on the string stack as an ASCIIZ string 
( at addr, terminated by a null. 

: $Z! ( $ addr — - ) 

DUP $P@ COUNT 2DUP + $P ! -ROT ( $DROP 

SWAP 2 PICK CMOVE + SWAP C! ; ( Copy, $+0 



( $INPUT — $ 

( Accepts a character string of up to 255 characters from the 
( keyboard, creating a counted string $ on the string stack. 
( Input is terminated when either a Return character is found 
( or 255 characters have been input. 

: $INPUT ( — S ) 

HERE DUP 255 EXPECT SPAN @ $CNT@ ; 



( $VARIABLE ~ — addr ) 

( Allocates memory for storage of a string. Used in the form: ) 
( $VARIABLE <name> ) 

( At compile time, $VARIABLE adds <name> to the dictionary and ) 
( ALLOTS memory for storage of a string in <name>' s parameter ) 
( field. When <name> is executed, it leaves its parameter field) 
( address on the stack. The storage ALLOTed by $VARIABLE is not) 
( initialized. ) 



: $VARIABLE ( — 

CREATE 256 ALLOT ; 



( — addr ) 



( $CONSTANT str'- — — $ ) 

( Creates a string constant. Typically used in the form: ) 

( " <string>" $CONSTANT <name> ) 
( At conpilet time, $CONSTANT adds <name> to the dictionary and) 

( conpiles the coxanted string <string> in <name>' s parameter ) 

( field. When <name> is executed, <string> is left on the ) 

( string stack. ) 



: $CONSTANT 

CREATE ( str" — ) 

DUP C@ 1+ TUCK HERE SWAP CMOVE ALLOT 



DOES> 



( — $ ) 



$@ 



( Save, allot ) 



( Get string ) 



( $NULL — $ ) 

( Returns the null string <a zero length string> on the string ) 
( stack . ) 
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: $NULL ( ~ $ ) 

$P@ 1- $P! $P @ C! ; 



( $NULL? $ ~ $ flag ) 

( Returns TRUE if the string on top of the string stack is the ) 
( null string. ) 



$NULL? ( $ — $ f ) 

$CNT 0= ; 



( $DROP $ — 

( Discards the string on the top of the string stack. 

: $DROP ( $ — ) 

$P@ COUNT + $P! ; 



( $2DR0P $ $ ~ 

( Dicards the top two strings on the string stack. 

: $2DR0P ( $ $ — ) 

$P@ COUNT + COUNT + $P! ; 



( $DUP $ — S$ ) 

( Copies the string on top of the string stack to the top. ) 

: $DUP ($—$$) 
$P@ $0 ; 



( $2DUP 1$ 0$ — 1$ 0$ 1$ 0$ ) 

( Copies the top two strings on the string stack to the top. ) 

: $2DUP ( 1$ 0$ 1$ 0$ 1$ 0$ ) 

$P@ DUP C@ 1+ 2DUP + C@ 1+ + 2DUP - DUP $P! SWAP CMOVE ; 



( $OVER 1$ 0$ — 1$ 0$ 1$ 

( Copies the string second on the string stack to the top. 
: $OVER ( 1$ 0$ 1$ 0$ 1$ ) 

1$ $e ; 



( $SWAP 1$ 0$ — 0$ 1$ 

( Exchange the top two strings on the string stack. 

: $SWAP ( 1$ 0$ — 0$ 1$ ) 

1$ $@ $P@ 1$ 2DUP C@ SWAP C@ + 2+ CMOVE> $DROP 



( $PICK $.. n — $.. $n 

( Copies the nth string on the string stack to the top. 



$!L $ ptr — 

Stores the string on top of the string stack as a 

counted string at the long address ptr. 

$0 — addr 

Returns the address of the variable which 

contains a pointer to the base of the string 

stack. 

$2DR0P $ $ — 

Discards the top two strings on the string 

stack. 

$2DUP 1$ 0$ — 1$ 0$ 1$ 0$ 

Copies the top two strings on the string stack. 

$< 1$ 0$ — f 

Returns True if the second string (1$) on the 
string stack has a lower ASCII value than the 
first. 

$= 1$ 0$ — f 

Returns True if the top two strings on the 
string stack are equal. 

$> 1$ 0$ — f 

Returns True if the second string (1$) on the 
string stack has a greater ASCII value than 
the first. 

$>D $ — d c 

Converts the string on the string stack to the 
double-precision integer d, using the current 
radix and the conversion count c. 

If all characters in the string are convert- 
ed, c is -1. If the string is partially converted, 
c is the number of characters that converted. 
If c is 0, the value of d is undefined. The 
position of the decimal point is placed in the 
variable DPL. If no decimal px)int was present, 
DPL will contain the value -1. If either 
hardware or software floating-point exten- 
sions have been loaded, the action of $>D and 
the value in DPL may vary from this descrip- 
tion. 

$@ addr — $ 

Fetches the counted string pointed to by 
address addr, returning the string to top of the 
string stack. 

SeL ptr — $ 

Fetches the counted string pointed to by the 
long address (ptr), returning the string to top 
of the string stack. 

$APPEND 1$ 0$ — 2$ 

Appends the second string on the string stack 
(1$) to the string on the top of the string 
stack. 

$CMP 1$ 0$ — f 

Compares the top two strings on the stack, 
returning a flag. If the second string (1$) is 
less than the first string, a -1 is returned. If the 
second string is greater than the first string, a 
1 is returned. 
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$CWT n — cnt 

Returns the count of the nth string on the 

string stack. 

$CNT! $ addr cnt — 

Stores cnt characters of the string on top of 
the string stack at address addr. If cnt is 
greater than the nvimber of characters in $, the 
excess character positions are blank filled. If 
cnt is less than the number of characters in $, 
the string is truncated to cnt. 

$CNT!L $ ptr cnt — 

Stores cnt characters of the string on top of 
the string stack at the long address (ptr). If cnt 
is greater than the number of characters in $, 
the excess character positions are blank filled. 
If cnt is less than the number of characters in 
$, the string is truncated to cnt. 

$CNT@ addr cnt — $ 

Copies to the string stack cnt characters of the 
string at address addr, converting it to a 
coimted string. 

$CI1T@L ptr cnt — $ 

Copies cnt characters of the string at the long 
address (ptr) to the string stack, converting it 
to a counted string. 

$CONSTANT str'^ — S 

Creates a string constant. Typically used in 

the form: 

<string>" $CONSTANT <name> 
At compile time, $CONSTANT adds <name> to 
the dictionary and compiles the counted string 
<string> in <name>'s parameter field. When 
<name> is executed, <string> is left on the 
string stack. 

$DEC 0$ — 1$ 

Increments the lexicographical value of the 
string on the string stack, returning 1$. If 0$ is 
a null string, no action is taken. 

$DEPTH ~ n 

Returns the number of strings on the string 

stack. 

$DROP $ — 

Discards the string on the top of the string 

stack. 

$DUP $ — $ $ 

Copies the string on top of the string stack. 

$H:MM12> $ — hm sd 

Converts the time string in the 12-hour format 
h:mm a.m. or h:mm p.m. to the time integers 
hm ds. The ds value is always 0. 

$HH:MM:SS:DD> $ — hm sd 
Converts the standard time format integers hm 
sd on the stack to a string on the string stack 
with the format hh:mm:ss:dd. 



: $PICK 



( $. 



n — $. 



$n ) 



N$ $@ 



( $ROT 2$ 1$ 0$ — 1$ 0$ 2$ 

( Rotates the third string on the string stack to the top. 

: $ROT ( 2$ 1$ 0$ — 1$ 0$ 2$ ) 

2 $PICaC $P@ $CNT 1+ OVER + ( src dest 

$CNT 1+ 1 $CNT 1+ + 2 $CNT 1+ + CMOVE> ( slide 
$DROP ; 



( -$ROT 2$ 1$ 0$ — 0$ 2$ 1$ 

( Rotates the top string on the string stack to the third 
( position, 

: -$ROT ( 2$ 1$ 0$ — 0$ 2$ 1$ ) 

$DUP 1$ $Pe ( src dest 

3 $CNT 1+ 2 $CNT 1+ + 1 $CNT 1+ + CMOVE ( slide 
$P@ 3 NS OVER ce 1+ CMOVE> $DROP ; ( Copy /drop 



( $NIP 1$ 0$ — 0$ 

( Discards the string second on the string stack. 

: $NIP ( 1$ 0$ — 0$ ) 

1 $CNT 1+ $P@ 2DUP + 2 PICK CMOVE> $P@ + $P ! 



( $TUCK 1$ 0$ — 0$ 1$ 0$ ) 

( Copies the string on the top of the string stack to the third) 
( position. ) 

: $TUCK ( 1$ 0$ -- 0$ 1$ 0$ ) 

1$ $@ SP@ 1$ 2DUP C@ SWAP C@ + 2+ CMOVE> $DROP 1$ $6 ; 



( $CMP 1$ 0$ 1 I I 1 

( Conpares the top two strings on the stack, returning a flag. 
( If the second string 1$ is less thcin the first string, 0$, a 
( -1 is returned. If the second, string, 1$ is greater than the 
( first string, 0$, a 1 is returned. If the two strings are 
( equal, a is returned. 



( 

( $C^4P is equivalent to the LMI word STRCMP 



$CMP 



?D0 
IF 
IF 

ELSE 
THEN 
THEN 

LOOP 

IF 

ELSE 
IF 



( 1$ 0$ 110 11) 

1$ COUNT $P@ COUNT ROT SWAP 
2DUP >R >R MIN OVER + SWAP 



-ROT 



DROP DUP ce 
DUP C@ I C@ 
-1 LEAVE 
1 LEAVE 

1+ 
NIP ?DUP 
R> R> 2DR0P 
R> R> 2DUP 
< 



C@ <> 



<> 



a2 al c2 cl 
a2 ale al 
Not equal? 
Less than? 
$< 
$> 

Inc ptr 
Not equal 
Drop cnts 
Not equal? 
Less then? 
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IF -1 
ELSE 1 
THEN 
ELSE 2DR0P 
THEN 
THEN $2DRCS> 



( S< 
( $> 
( 

( $= 
( 



( $= 1$ 0$ — flag 

( Returns TRUE if the top two strings on the string stack 
( are equal. 



( 1$ 0$ — flag ) 



$CMP 



( $< 1$ 0$ — flag 

( Returns TRUE if the string second on the string stack has a 
( lower ASCII value than the first. 



$< 



( 1$ 0$ — flag ) 



$CMP 



( $> 1$ 0$ — flag 

( Returns TRUE if the string second on the string stack has a 
( greater ASCII value than the first. 



$> 



$CMP 



( 1$ 0$ 

1 = ; 



flag ) 



( $WITHIN 2$ 1$ 0$ — flag ) 

( Returns TRUE if the string 2$ on the string stack is greater ) 



( or equal to string 1$ and less or equal to string 0$. 

: $WITHIN ( 2$ 1$ 0$ — flag ) 

2 $PICK $< NOT $< NOT AND ; 



( $UPPER $ — $ 

( Converts a string indicated by addr cnt to all upper case, 
( not affecting any other ASCII symbols. 



: $UPPER ( $ — $ ) 

$P@ COUNT OVER + SWAP 
?D0 I C@ ASCII ' OVER < 
OVER ASCII { < AND 
IF DUP 32 - I C! 
THEN DROP 
LOOP 



( limit start 
( char >= a 
( char <= z 
( Convert 
( Drop char 



( $LOWER $ — $ 

( Converts a string indicated by addr cnt to all lower case, 
( not affecting any other ASCII symbols. 



) 



$INC 0$ — 1$ 

Increments the lexicographical value of the 
string on the string stack, returning 1$. 

$INDEX 1$ 0$ — o 

Returns the offset into the second string (1$) 
on the string stack of the first position 
matching the pattern of the first string. If 0$ is 
not a subset of 1$, -1 is returned. 

$INIT addr n — addr' 

Initializes the string stack for n strings with 
addr as the highest address to use, returning 
the lowest address used. 

$ INPUT — $ 

Accepts a character string of up to 255 
characters from the keyboard, creating a 
counted string on the string stack. Input is ter- 
minated when either a return character (ODh) 
is found or 255 characters have been input. 

$JULIAN> $ — y md 

Converts the Julian day of the string to the 
standard date format integers y md. The 
Julian day is the day offset from the start of 
the current year. The Julian date is the 
number of days since the last conjunction of 
the 28-year solar cycle and the 19 -year lunar 
cycle, calculated to be January 1, 4713 B.C. 
On December 31, 1986, the Julian date was 
2,446,796. 

$LEADING+ 0$ n chr — 1$ 

Appends n leading characters (chr) to the 
string on the string stack, returning the string 
1$. 

$LEADING- 0$ chr — 1$ 

Discards chr leading characters from the 
string on the string stack, returning the string 
1$. 

$LEFT 0$ n — 1$ 

Extracts a string of length n from the string on 
the string stack, starting with the first 
character. The length of 1$ is the MIN of the 
length n with the length of 0$. 

$LOWER 0$ — 1$ 

Converts the string on top of the string stack 
to all lower case, not affecting any other 
ASCn symbols, returning the modified string. 

$MATCH 1$ 0$ — f 

Returns True if the string 1$ on the string 
stack matches the pattern of 0$. The pattern 
of 0$ may consist of the pattern codes of C, G, 
N, P, A, L, U, E, \ or ~. If the pattern code is a 
\ the following character is taken as a literal 
value and True is returned if that character is 
present in the string 1$. If the pattern code is 
a ~, the following character is taken as a 
literal value and True is returned if that 
character is not present in the string 1$. The 
pattern is the imion of the pattern codes in 0$. 
The significance of the pattern codes are: 
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C 33 Control characters, including Del 

G 128 Graphic characters above Del 

N 10 Numeric characters 

P 33 Punctuation characters, including 
SP 

A 52 Alphabetic characters 

L 26 Lower-case alphabetic characters 

U 26 Up>per-case alphabetic characters 

E Everything non-graphic 

' The following character is present 

~ The following character is not present 

$MID 0$ o 1 — 1$ 

Extracts a string of offset o and length 1 from 
the string on the string stack. If the offset o is 
greater than the length of string 0$, a null 
string is returned as 1$. The length of 1$ is the 
MEN of the length with the length of 0$ minus 
the offset. 

$MM/DD/YY> $ — y md 

Converts the date string in the format mm/dd/ 

yy to the standard date integers y md. 

$NIP 1$ 0$ — - OS 

Discards the second string on the string stack. 

$NULL — $ 

Returns the null string (a zero-length string) 

on the string stack. 

$NUIX? $ — $ f 

Returns True if the string on the string stack is 

null (a zero-length string). 

$0K? 

Verifies that the string stack has not imder/ 
overflowed. If an error condition exists, an 
error message is displayed and the string stack 
is reset 

$OVER 1$ 0$ — 1$ 0$ 1$ 

Copies the second string on the string stack to 
the top. 

$P ~ addr 

Returns the address of a variable which 
contains a pointer to the top of the string 
stack. 

$P! addr — 

Sets the string stack pointer to address addr. 

$P@ — addr 

Returns the address of the current string stack 

pointer. 

SPARSE 1$ 0$ — - 3$ 2$ 

Parses the string 1$ for the string 0$, returning 
the parsed string 2$ without the string 0$, and 
the remaining string 3$, also without the 
string 0$. If no instances of the string 0$ are 
found, string 2$ is the null string and string 3$ 
is 1$. 



: $LOWER ( $ ~ ) 

$P@ COUNT OVER + SWAP 
?D0 I ce ASCII e OVER < 
OVER ASCII [ < AND 
IF DOP 32 + I C! 
THEN DROP 
LOOP 



( limit start 
( char >= A 
( char <= Z 
( Convert 
( Drop char 



( $APPEND 



IS 0$ 



2$ 



) 



( Concatenates the string second on the stack to the string on ) 

( the top of the stack. ) 

( ) 

( $APPEND is equivalent to the LMI word STRCAT ) 



$APPEND ( 1$ 0$ ~ 

$CNT 1 $CNT + 
$P@ COUNT OVER 1+ 
$P@ 1+ $P! $Pe C! 



2$ ) 



SVJAP CMOVE> 



( New cnt ) 
( Slide string ) 
( Adj ptr, cnt ) 



( $LEFT 0$ 1—1$ ) 

( Ebctracts a string 1$ of length 1 from the string 0$ on the ) 

( string stack, starting with the first character. The length ) 

( of 1$ is the MIN of the length 1 with the length of 0$. ) 



START 
ANEW 




Subscribe to the Journal 
of Forth Application and 
Research like your 
colleagues and 
competitors! 

To order Volume 5 
of the Journal of 
Forth Application and 
Research call the 
Institute for Applied Forth 
Research, Inc. at: 

(716) 235-0168 

INDIVIDUAL: $50 CORPO R \ 1 1 S 1 2S 

Outside N. America: $70 Outside N \iikiu.i Sl40 

Visit our booth at the FIG convention in Anaheim 
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: $LEFT ( 0$ 1 — 1$ ) 

$CNT OVER - DUP 0> 

IF $Pe 2DUP + 3 PICK 1+ 

$P@ + DUP $P! C! 

ELSE 2DR0P THEN ; 



CMOVE> 



( #Drop > 0? ) 
( Slide 1 chrs ) 
( Adj ptr, cnt ) 
( Do nothing ) 



( $RIGHT 0$ 1—1$ ) 

( Extracts a string 1$ of length 1 from the string 0$ on the ) 
( string stack, starting from the last character. The length of) 
( 1$ is the MIN of the length 1 with the length of 0$. ) 



$RIGHT 



$CNT 



( 0$ 1 ~ 
TUCK MIN 



1$ ) 
TUCK 



$P@ + $P! $P8 C! 



( $MID 0$ o 1 — 1$ 

( Ebctracts a string 1$ of offset o and length 1 from string 0$ 
( on the string stack. If the offset o is greater than the 
( length of the string 31, the null string is returned as 1$. 
( The length of 1$ is the MIN of the length 1 with the length 
( of 0$ minus the offset o. 
( 

( $MID is equivalent to the LMI word STRXTR 



: $MID 

$CNT 
IF $RIGHT 
ELSE 2DR0P 



( 0$ o 1 — 1$ ) 
ROT - DUP 0> 
$CNT MIN $LEFT 
$DROP $NULL THEN 



( o > len? 
( Ebctract str 
( Return null 



( $CNT@L ptr cnt — $ 

( Copies cnt characters of the string at the long address ptr 
( to the string stack, converting it to a counted string. 



$CNTeL ( ptr cnt — $ ) 

>R $P@ R@ - DUP 1- $P! 
ADDR>PTR R@ CMOVEL R> $P@ C! 



( Adj stk ptr 
( Move, lent 



( $CNT!L $ ptr cnt — 

( Stores cnt characters of the string $ on top of the string 
( stack at the long address ptr. If cnt is greater than the 
( number of characters in $, the excess character positions are 
( blank filled. If cnt is less than the number of characters in 
( $, the string is truncated to cnt. 



$CNT!L 



IF 



) 



( $ ptr cnt 
$CNT OVER - 0> 
DUP PAD C! PAD 1+ SWAP BLANK 
PAD $@ $SWAP $APPEND 
THEN $P@ COUNT OVER + $P! 

ADDR>PTR 2 SWAP $CNT CMOVEL 



( $@L ptr — $ 

( Fetches the string pointed to by the long address ptr to the 
( top of the string stack. 



( Pad w/sp? 

( Make sp str 

( Pad $ 

( Drop $ 

( Move string 



$PICK $.. n — $.. n$ 

Copies the nth string on the string stack to the 
top. 

$RIGHT 0$ n — 1$ 

Extracts a string of length n from the string on 
the string stack, starting from the last char- 
acter. The length of 1$ is the MIN of the 
length with the length of 0$. 

$ROT 2$ 1$ 0$ — 1$ 0$ 2$ 

Rotates the third string on the string stack to 
the top. 

$SOUNDEX 0$ — 1$ 

Returns the soundex code string of the string 

on the string stack. The soundex code consists 

of the fu'st character of the string, followed by 

a three-digit code in the range 0000 > 1$ > 

Z999. 

$SWAP 1$ 0$ — 0$ 1$ 

Exchange the top two strings on the string 
stack. 

$TRAILING-I- 0$ n chr — 1$ 
Appends n trailing characters chr to the string 
on the string stack, returning the string 1$. 

$TRAILING- 0$ chr — 1$ 
Discards trailing characters chr from the 
string on the string stack, returning the string 
1$. 

$TUCK 1$ 0$ — 0$ 1$ 0$ 

Copies the string on the top of the string stack 
to the third jxisition on the string stack. 

$UPPER $ — $' 

Converts the string on top of the string stack 

to all upper case, not affecting any other 

ASCn symbols, returning the modified string 

$'. 

$VARIABLE — — str" 

Allocates memory for storage of a string. 
Used in the form: 
$VARIABLE <name> 
and 

$VARIABLE 

At compile time, $VARIABLE adds <name> 
to the dictionary and ALLOTs memory for 
storage of a string in <name>'s parameter 
field. When <name> is executed, it leaves its 
parameter field address on the stack. The 
storage ALLOTed by $VARIABLE is not 
initialized. 

$VERIFY 1$ 0$ — o 

Returns the offset into the second string (1$) 
on the string stack of the first character in the 
first string (0$) which is not found in the 
second (i.e., the length of the initial substring 
of 0$ which consists entirely of characters in 
1$). 



Volume X, Number 3 



23 



Forth Dimensions 



$YYYYMMDD> $ ~ y md 
Converts the date string in the format 
yyyymmdd to the standard date format 
integers y md. 

$Z! $ addr ~ 

Stores the string on the top of the string stack 

as an ASCHZ string at addr, terminated by a 

null. 

$Z!L $ ptr — 

Stores the string on the top of the string stack 
as an ASCIIZ string at the long address ptr, 
terminated by a null. 

$Z@ addr $ 

Returns the string on the string stack of the 
ASCIIZ string at the address addr which is 
terminated by a null. 

$Z@L ptr — $ 

Returns the string on the string stack of the 
ASCIIZ string at the long address ptr which is 
terminated by a null. 

-$ROT 2$ 1$ 0$ — 0$ 2$ 1$ 

Rotates the top string on the string stack to the 
third jxjsition. 

.$ $ — 

Displays the string on the top of the string 

stack. 

.$S $.. — $.. 

Non-destructively displays the contents of the 
string stack. 

1$ 1$ 0$ -- 1$ 0$ addr 

Non-destructively returns the address of the 
string second on the string stack. 
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$@L ( ptr — $ ) 

2DUP C@L 1+ $Pe OVER 



DUP $P! ADDR>PTR ROT CMOVEL 



( $!L $ ptr — 

( Stores the string $ on top of the string stack as a counted 
( string at the long address ptr. 

: $!L ( $ ptr — ) 

$P@ DUP ADDR>PTR ROT C@ 1+ CMOVEL $P@ COUNT + $P ! ; 



( $Z@L ptr — $ ) 

( Returns the string $ on the string stack of the ASCIIZ ) 
( string at the long address ptr which is terminated by a null.) 



: $Z@L ( ptr — $ ) 

HERE C! 256 1 
DO 2DUP C@L DUP 0= 

IF DROP LEAVE 

THEN HERE I + C! HERE C@ 1+ HERE C! 
LOOP 2DR0P HERE $8 ; 



( Set count ) 

( Null? ) 

( Get out ) 

1 >PTR ( Inc cnt, ptr ) 

( Drop ptr ) 



( $Z!L $ ptr — ) 

( Store the string $ on the string stack as an ASCIIZ string ) 
( at the long address ptr, terminated by a null. ) 



$Z!L ( $ ptr — ) 

2DUP 

$P@ COUNT SWAP ADDR>PTR ROT 
$CNT 1+ >PTR -ROT C!L ; 



{ Dup ptr ) 
CMOVEL ( Store string ) 
( Append null ) 



( $INC 0$ — 1$ ) 

{ Increments the lexicographical value of the string 0$ on the ) 
( string stack, returning 1$. ) 



: $INC 

IF 
IF 

ELSE 

THEN 
ELSE 
THEN 



( $DEC 



255 < 



( 0$ -- 1$ ) 
$P@ COUNT ?DUP 
1- + DUP C@ DUP 
1+ SWAP C! 

2DR0P $P@ 1- OVER C! 
1- 1 OVER C! $P! $SWAP 



1- 1 OVER C! 



$APPEND 
1 OVER C! $P! 



( Check for nul) 
( Less than max) 
( Inc char val ) 
( 1 chr nuil ) 
( Append it ) 
( ) 
( 1 char string) 



0$ — 1$ ) 

( Increments the lexicographical value of the string 0$ on the ) 

( string stack, returning 1$. If 0$ is the null string, no ) 

( action is taken. ) 
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: $DEC 


1 OS 1 s ^ 






SPfl COUNT 'DUP 




IF 


i_ J. nup cfl DUP > 


( > null? ) 


IF 


1- SWAP cr 


( Dec char val ) 


ELSE 


DROP $CNT DUP 1 > 


( Count > 1? ) 


IF 


1- $LEFT 255 $P@ COUNT + 1- C! 


( Set to 255 ) 


ELSE 


2DR0P $DROP $NULL THEN 


( Return null ) 


THEN 




( ) 


THEN 






(Screens continued on page 37.) 



Figure One. 

\ Editor Word rdb 1 1/29/85 

\This word allows the use of an ASCII editor (or any other by 
\ simply changing the name) from within UR/FORTH. 

: ED ( — ) 
" " $@ $PARSE 
" ED " $@ $CAT 
$Pe -SHELL $DROP 



>$YYYYMMDD y md — $ 
Converts the standard date format integers y 
md to the date string, with the format 
yyyymmdd. 

D>$ d — $ 

Converts the double-precision integer d to the 

string on the string stack. 

MAX$ — addr 

Returns the address of variable which contains 

the maximum number of strings on the string 

stack. 

NS n — addr 

Returns the address of the nth string on the 

string stack. 



2$ 1$ 0$ — 2$ 1$ 0$ addr 
Non-destructively returns the address of the 
string third on the string stack. 

>H:MM12 hm sd — $ 

Converts the standard time format integers hm 
sd to a time string in the 12-hour format h:mm 
a.m. or h:mm p.m. 

>$HH:MM:SS:DD hm sd — $ 
Converts the the standard time format integers 
hm sd to the string on the string stack with the 
format hh:mm:ss:dd. 

>$JULIAN y md ~ $ 

Converts the standard date format integers y 
md to the Julian day of the string $. The Julian 
day is the day offset from the start of the 
current year. The Juhan date is the number of 
days since the last conjunction of the 28-year 
solar cycle and the 19-year limar cycle, 
calculated to be January 1, 4713 BC. On 
December 31, 1986, the Julian date was 
2,446,796. 

>$MM/DD/YY y md ~ $ 

Converts the standard date format integers y 

md to the date string, with the format mm/dd/ 

yy- 



F83 USERS 



PVM83 is a complete Prolog extension to Laxen and Perry F83. 
It handles the primary data structures of strings, numbers.logical constants, 
logical variables, compound predicates, and lists. PVM83 is designed to add 
productivity and flexibility. It Is fully interactive between Prolog procedures, 
and Forth code. PVM83 is a compiled Prolog featuring fast execution times. 

PVM83 is fully extensible. "Standard" definitions gives the 
programmer flexibility to design just those procedures needed for his 
application. PVM83 code can execute Forth words. F83 can call the PVM83 
backtracking and problem solving capabilities. 



PVM83 code is Incrementally 
compiled in higher memory segments 
than the F83 core, leaving room in 
the F83 kernal for the "standard" exten- 
sions or other F83 code that the pro- 
grammer needs. 

PVM83 is designed to keep the 
Forth philosophy of being both 
compiled, and interactive. You can type 
in procedures from the keyboard and 
test them, or supply source code from 
Forth block files, or text files 
Intersegment memory management 
source code Included. 



I PVM 83 

only $69.95 

includes manual 

requires 
DOS 2.0 or higher 256K RAM 

Concept 4 

PO Box 20136 
VOC Az 86341 
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SOME WORDS ABOUT 

F83's WORDS 

TIMOTHY HUANG - PORTLAND, OREGON 



[Editor's note: This was originally 
presented by its author at a FORML event 
in Taiwan (ROC). In some respects it shows 
the passage of time, but it does provide an 
avenue for the intermediate Forth pro- 
grammer who is looking for a way to whet 
his skills on F83's kernel. Perhaps other 
uses of the technique will suggest them- 
selves...] 

This paper describes an alternate 
method of implementing F83's WORDS 
mechanism. The new implementation al- 
lows the original function of WORDS — 
which displays every word of a given vo- 
cabulary — and a display that is limited to 
important keywords. 

Introduction 

F83 is an excellent public-domain im- 
plementation of Forth-83. I love it and 
believe all who use it will agree with me. In 
my personal opinion, it is one of the best 
products available, for the following rea- 
sons: 

• It is a very complete implementation of 
a software development environment, 
including many tools and utilities (e.g., 
metacompiler, multitasker) not provided 
in the basic packages of some commer- 
cial vendors. 

• It not only complies with the Forth-83 
Standard, it provides a unified image 
across several different microprocessors 
and operating systems. I.e.,6502 (Apple- 
DOS), 8086/88 (MS-DOS, CP/M-86), 
8080/85 and Z80 (CP/M-80). and 68000 
(CP/M-68K). 

• It is widely available. You can download 
it from a computer bulletin board, copy it 
free from a friend, or pay $25 to No 
Visible Support Software. 



However, there is also room for im- 
provement For example: 

• Some utilities can be made more flexible 
(e.g., see this article). 

• Several definitions should be rewritten in 
low level to improve performance (e.g., 
all stack operators should be in low 
level). 

• Several custom utilities should be added 
for a given environment, to take advan- 
tage of built-in system features (e.g., the 
Escape sequence terminal control words 
should be used to provide a more 
friendly, screen-oriented editor — I hate 
the intolerable hostility of the line edi- 
tor). 

"Our lives (and our 
computers) are compli- 
cated enough/' 



• 32-bit implementations are needed for 
newer machines which incorporate the 
desktop metaphor (e.g., Apple's Macin- 
tosh, Atari's 520ST, Digital Research's 
GEM, and Commodore's Amiga). 

A Better Way With WORDS 

I like the name "words." It demon- 
strates good taste and good Forth disci- 
pline. It is good English, easy to under- 
stand, powerful, and more human than fig- 
FORTH's VLIST, which is not an English 
word but computer gibberish. This is a 
subUe but important human factor to con- 
sider. 

Next, because F83 is quite a complete 



development system, it contains many, 
many words in several vocabularies. Ac- 
cording to my unofficial statistics, there 
are more than 1000 words in the system. 
This is an overwhelmingly large number. 
In the FORTH vocabulary, there are more 
than 500 words. Somehow, my mind en- 
counters great difficulty in remembering 
these names. Thus, a better mechanism 
must be found. 

Finally, an unscientific analysis re- 
veals that many of those words were cre- 
ated only for the ease and clarity they bring 
to the definition of other, more powerful 
and commonly used, words. In my situ- 
ation, about 50% of the words could be 
hidden, reducing to a manageable level the 
number of words I need to be familiar 
with. 

Selection Criteria 

Whether any given word is better off 
hidden is up to personal taste, the require- 
ments of a given task, and even the user's 
emotional state. Nevertheless, I would 
like to provide the following guidelines as 
general selection criteria. 

Consider hiding words that fit any of 
the following categories: 

• Words enclosed with parentheses, usu- 
ally run-time routines or lower-level 
vectored words. These words won't be 
executed directly. Including, but not 
limited to, (where) , (Convey) , 

(COPY), (PAUSE), (FORGET), 
(?D0), (DO), (LOOP), (+LOOP), 

and (LIT). 

• Words used only in very limited circum- 
stances. Dr. C.H. Ting's paper about the 
frequency of F83 word use (Forth Di- 
mensions VII/4) is a good reference. 
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1 7 
e \ Load Scresn t(lh28SepS5 \ Load Scretn 

1 \ If you like WORDS, use the following line. Mate your choice of which version of the HDRDS iipleientation 

2 3 4 THRU you like. Coiient out the other one. Default to ny version. 

3 5 LOAD 
4 

5 \ If you don't like ly WORDS, use the latest froii Mike Perry. 

6 \ 2 LOAD 

t 

/ 

B 
9 

It 

II 
12 

< 1 

14 
15 



I \ Display the HCR5S i;; thf Contest Vocabuary 

1 : LARGEST !S addr r — addr' val ) OVER e SWAP ROT 8 DO 

2 2D'J? « U< IF -RO" 2DR3P OUP I GVEf; THEK 2+ LOOP DROP i 
3 

4 CREATE THREADS tTHREADS It ALLCT 

5 : FCLL3. (S al f — ) THREADS THREADS It CUCVE ; 

6 : ANOTHER (S — anf ) THREADS tTHREADS LARGEST DL'P 

7 IF DL'P g R:' I DKA'IE ELSE NIP THEN ; 

8 DEFER EACH CS a.-f — ) 

9 : EVERY (S avoc — ) NEWLINE FOLLOW 

18 BEGIN STA"/STOF ANOTHER ?DL-F WHILE EACH REPEAT ; 
II 

12 : .NAME (S anf — ) D'JP C§ 31 AND ?LINE .ID 2 SPACES ; 

13 : WORDS (S — ) [•] .NAKE IS EACH CONTEXT « EVERY ; 

14 ROOT DEFINITIONS 

15 : WORDS WORDS j FORTH DEFINITIONS 



e 

\ Display the WORDs in the Context Vocabulary 
LARGEST (S addr n — addr' val ) 

Given a address and a nuiber of words tc exaiirt, returr. 

the address and the value of the largest entry the array. 
THREADS is a scratch area for walks through the dictionary. 
FOLLOW selects a vocabulary 
ANOTHER finds the next word. 

EACH is the action tc be perforied on each word, 

EVERY perforis the action on every word in the giver, vocabulary. 

These words are generally useful, not only for WORDS. 

.NAHE prints the next word within the largins. 

WORDS lists the words in the context vocabulary. It can be 

paused or interrupted any tiie by pressing a ke). 
Add WORDS to the ROOT vocabulary. 



8 \ Display the WORDS m the Context Vocabuary - 1 

1 : LAFSEE' (S addr n — addr' val ) OVER 8 SWAP ROT 8 DO 

2 2DU- 8 0< IF -ROT 2DR2P DUP t OVER THEN 2+ LOOP DROP ; 

3 CREATE THREADS ITHREADS 2{ ALLOT 

4 : FDLLCli (S alf — ) THREADS ITHREADS 2* CMVE ; 

5 : ANOTHER (S — anf ) THREADS ITHREADS LARGEST DUP 

6 IF OOP 8 ROT ' L>NA?;E ELSE NIP THEN ; 

7 DEFER EACH (S anf — ) 

8 ! EVERY (S avoc — ) NEWLINE FOLLOW 

9 BESIN START/STOP ANOTHER ?DUP WHILE EACH REPEAT ; 
18 : .NAME (S anf — ) DJP C8 31 AND ?LINE .ID 2 SPACES ; 

11 \ Change and/or add the follcwi-ijs. 

12 : ?TA£ (S ar;f — anf f ) DUP C§ 32 AN: ; 

13 : .SO«E (S ar.f — ) ?TAfi IF DROP ELSE- .NAnE THEN j 

14 : ALL (E — ) I' I .NA>!E IS EACH ; 

15 : SOKE (S — ) VI .SOME IS EACH : 



\ Display the WORDs in the Context Vocabulary - 1 

LARGEST (S addr n — addr' val ) 

Given a address and a nuiber of words to e>.a;,.ine, return 
the address and the value of the largest entry in the array. 

THREADS is a scratch area for walks through the dicticna-y. 

FOLLCW selects a vocabulary 

ANOTHER finds the next word. 

EACH is the action to be perforied on each word. 

EVERY perforts the action on every word in the giver, vocabulary. 

These words are generally useful, not only for WORDS. 

.NANE prints the next word within the largir. 

ttttttt The following; are either new ones o' ncdified. t«Ut« 

?TA6 tS anf — anf f ) return true if tag bit is or. 

.EOUE prints only un-tagged words. Do not pri-,t tagged words. 

ALL vector to show all words m the contest vocaiualry. 

SOI^E vector to show sote words in the cor,text vccabulary. 
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\ Display the WORDS in the Context Vocab^a'y - 2 
: "AS (S — ) \ Tag the latest defined yord 

3: i tag i);t ) LAST « CSET ; 

! WORDS (S — : CDNTEH « EVERY j 

RDCT DEFINITION; : WCSCS yORDS ; FORTH DE'IMTIDNS 



10 

\ Display the WORDS in the Context Vciabiilary - 2 
TAG iarks the latest defined «ords as taggsd. Tc be used as 
: <;naie> ; TAG 

UORBS lists the words in the context vocabulary. It car be 
paused or interrupted any tiie by pressing a key. 
m lodified m 

Add WORDS to the ROOT vocabulary. 



13 
14 



8 \ Te-t Exarple for the New WORDE 

I VC:iE„APY CCllNTIES CGUriEE DEFINITIONS 



4 ; 



S'-a'.-Cr.urg is a city of very stirlj river.' ; TAG 
Tec Pei-To- 15 where the hot spring place." i TAS 



6 ." Dci-Shiy 1= an old habor tciwr wits' nice uriversity. " 

7 -a; 

8 : Ka'-Doii ." flar-Dsu prodLices the best graje-fruit. ' ; TAG 

9 : Taiiii'^.City The old layor is call BIG-HEAD. ' j TAG 

11 ! 'aipti-ccur-ty cr Shan-Chung cr Fei-Tou c: Dan-Shay cr ; 

12 ; 'ainan-cour.ty c Kar-Dou cr Tainan City cr ; 
1: 

14 



\ Test Esasple for the new WORDS 

Defines a vocabulary called COUNTIES and add wor 

Shan-Chung is a tagged word. 

Pei -Tcu is a tagged word. 
Dan-Shay is a tagged word. 



Kar-DsL is a tagged word. 
Tainan_City is a tagged word. 

Taipei-CDunty is not a tagged word. 
Tainar-courty is not a tagged word. 



Personally, I think words that are used 
fewer than 20 times in the system should 
be hidden, but exceptions exist ?Mi S S - 
ING was used 113 times by other F83 
words, but during several years I have 
never needed it. On the other hand, dump 
isn't used by any other words, but my 
programming life would be miserable 
without it. Personal judgment should be 
your guide. 
• Non-English words should be hidden. 
Our lives (and our computers) are com- 
plicated enough without unnecessary 
burdens. Poor choices for word names 
just exposes a lazy programmer and will 
make your programs more difficult to 
maintain. I cannot see anything good 
about using non-English Forth word 
names. 



Syntax 

Bearing these points in mind, we will 
now derive a method to provide a discrimi- 
natory word-listing mechanism. With this 
new way of dealing with words in the sys- 
tem, some words are tagged and some 
remain unchanged. 

The first thing thatrequires our attention 
is the desired syntax. Because the main 
interpreter interfaces with us, it should be as 
close as possible to our human linguistic 
habits for ease of use and understanding. 
Awkward, unnatural, and non-English 
syntax will only degrade and prevent hu- 
man progress. Thus, it is very important to 
get this right At this point, I do not even 
care about all the other, nitty-gritty factors. 
What I care about is the overall approach to 
the whole thing. 

I think the following two examples are 
great They are short simple, and plain 



English. Even we (Chinese) have no 
sweat comprehending them: 

ALL FORTH WORDS 

SOME FORTH WORDS 

<choice> <vocabularY> <f unc- 

tion> 

The first phrase is equivalent to the old 
FORTH WORDS. It displays all words in 
the FORTH vocabulary, regardless of the 
nature of the words. The whole phrase 
only needs to be used once, to select the 
vocabulary and the behavior of WORDS; 
after that, just typing WORDS is enough. 
Of course, the vocabulary name — 
FORTH, in this example — can be that of 
any vocabulary. 

The second phrase is the selective 
word listing. It only shows words that are 
not tagged. Again, after the complete 
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phrase has been typed once, WORDS will 
conform to that behavior until changed. 

Glossary 

The following words will be needed to 
implement this new mechanism: 
ALL ( - - ) 

Vectors the function of words so that 
all the words in a given vocabulary will be 
displayed. 

SOME ( - - ) 

Vectors the function of WORDS so that 
only the untagged words in a given vocabu- 
lary will be displayed. 

TAG ( - - ) 

Marks a given word so that it will be 
hidden from the selective display. 

Used in the form: 
: <name> <cief inition> ; TAG 

. SOME ( - - ) 

Displays only untagged words in the 
context vocabulary. Press any key to inter- 
rupt the listing. 

?TAG ( nfa - - nfa flag ) 

Checks the count byte of the name field 
to see if the tag bit is set If it is, returns true; 
otherwise, returns false. 

Implementation Notes 

In order to get the job done right, I think 
the following must be carefully considered 
during implementation: 

• The normal dictionary search by the 
interpreter should not be affected by this 
implementation. I.e., to the interpreter, 
these two categories of words should 
maintain the same weight. This means 
that words like ' (tick), find, for- 
ge t , etc. should be able to find all words 
in the dictionary, tagged and untagged 
alike. 

• For the tag bit, it can use the smudge bit 
of the name field's count byte. If this bit 
is set, then some <voc> words should 
not see it. If it is not set, then SOME 
< voc> WORDS will see it Regardless of 
the condition of the tag bit, all <voc> 
WORDS will display all the words in that 
vocabulary. 

• Modification of the system should be 
kept to a minimum, if possible. As it 
turns out, except for the modifications in 
screen 5 of the UTILITY.SCR file, there 
is only one other place that must be 
changed. 



• The (FIND) function (on screen 63 of 
my KERNEL.86.SCR file) must be 
modified as below: 

: (FIND) 



BEGIN ... 

WHILE ... 

[SI] AL MOVE 

ES: [DI] AL XOR 

31 # AL AND 



The phrase 31 # AL AND masks off the 
three most significant bits — the delimiter, 
precedence, and tag bits. The original 
phrase 63 # AL AND only masks off two 
bits. 



If you don't want to metacompile a new 
kernel with the above change, you can also 
"hot patch" the definition of (FIND) to 
accomplish the same thing (that is, change 
the value in the kernel image and then save 
a new binary command file). But be 
warned, this is at your own risk and the 
system will now differ from its source 
code. 

Source code for the modification of 
related words is provided in the listing. 
Incidentally, Mike Perry made some im- 
provements to this particular subject in 
April 1985. His listing is provided here in 
screen two; if you prefer Mike's ideas, 
replace screen five of UTILITY.SCR with 
the contents of this new screen. If you 
prefer my scheme, use screens three and 
four presented here. Screen five is a test 
case. 



order 

Context: COUNTIES COUNTIES FORTH ONLY 
Current : FORTH 

all counties words 

TAINAN-COUNTY TAIPEI-COUNTY TAINAN_CITY MAR-DOU DAN-SHAY 
PEI-TOU SHAN-CHUNG 

some counties words 

TAINAN-COUNTY TAIPEI-COUNTY 

words 

TAINAN-COUNTY TAIPEI -COUNTY 
Taipei-county 

Shan-Chung is a city of very stinky river. 

Pei-Tou is where the hot spring place. 

Dan-Shay is an old harbor town with nice university. 

Tainan-county 

Mar-Dou produces the best grape-fruit. 
The old mayor is called Big-Head. 

^ Mar-Dou . 22459 



Figure One. Use of the selective WORDS, based on the example in screen five. Bold 
indicates keyboard entries. 
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Real-Time Programming 
Convention 

November 18 - 19, 1988 
Grand Hotel, Anaheim, California 



Call for Presentations 



The 1988 Real-Time Programming Convention will be held at the Grand Hotel in Anaheim, 
California, and is sponsored by the Forth Interest Group. 

The theme of this year's convention is Real-time Programming Systems. The invited 
speakers are Jef Raskin, head of the original Macintosh development team and inventor of 
the Canon Cat, and Ray Duncan, well-known author and expert on IBM PC Operating 
Systems. Both speakers have made extensive use of Forth, a language especially suited to 
real-time applications. 

There is a call for presentations on topics in the following areas: 



Programming Environments 



Applications 



Real-time Operating Systems 

Language-oriented RISC machines 

Parallel Processing 

Languages for Data Acquisition and 

Analysis 

Robotics and Real-time Device Control 
Intelligent Devices 



Aerospace 

Medical 

Laboratory 

Machine- vision 

Digital Signal Processing 

Robotics 

Automation 

Instrumentation 



Intelligent Instrumentation 
Working Neural Nets 
Adaptive devices 
Software Peripheral Controllers 



Presentations may be either talks or demonstrations. Talks are limited to fifteen minutes. 
Please submit an abstract of the talk and a request for any audio-visual assistance by October 
15. Demonstrations may accompany the talk or appear separately throughout the 
convention. Please send a description of the demonstration and its requirements by October 
15. 

Abstracts and descriptions should be sent to: Real-Time Programming Convention, 
Forth Interest Group, PO Box 8231, San Jose, CA 95155. 
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Part Two 

DESIGNING 

DATA STRUCTURES 

MIKE ELOLA - SAN JOSE, CAUFORNIA 



The Search for Portable Data Objects 

Various design techniques can make the 
porting of data structures easier. Usually, 
the use of such design techniques reflects a 
general programming philosophy rather 
than a concern for portability. 

The primary focus of this discussion is 
the portable coding of data objects. Be- 
cause of their effect upon portability, cer- 
tain programming techniques will become 
the focus of the following discussion. 
These techniques are: object-oriented pro- 
gramming and data abstraction. 

(Note that some techniques can be 
closely wedded to a language. For example, 
the idea of typed data in Pascal shapes the 
syntax of that language.) 

Beyond typed data, there are program- 
ming techniques that cannot be made 
mandatory through imposition of syntax. A 
familiar example is factoring routines to 
keep them simple and short. This is not 
likely to become a part of the imposed 
syntax of any language. We must use such 
techniques voluntarily, which is likely to 
happen only when we develop enough 
appreciation for them. 

Even when one language supports a 
technique better than others do, the tech- 
nique still offers benefits to programs writ- 
ten in other languages. This is especially 
true for Forth, because of its extensi- 
bility .We can circulate the benefits pertain- 
ing to certain languages throughout all of 
our own programs. Forth programs can — 
and should — make use of data typing, 
object-orientation, and data abstraction, 
even if Forth itself remains essentially un- 
changed. 

First, a brief examination of Forth con- 
stants and variables is offered. These ob- 
jects are universally available and should 



already be understood well. 

Standard Forth Objects 

In the last installment, we learned that an 
object is a collection of properties. Among 
those are the layout properties, such as the 
order of its components. Other, more de- 
rivative properties arise because of the 
consistent interpretations we associate with 
particular components of an object, such as 
the sign bit 

While all Forth variables have a sign bit, 
different host computers use a different bit 
for the purpose. Likewise, the least-signifi- 
cant eight bits of a 16-bit number may 
occupy the low byte on some hosts, and the 
high byte on others. 

Note that the same source code should 
compile and behave the same, whether or 
not different hosts structure variables in the 
same way. We have grown comfortable 
with a certain lack of concern over the host 
computer, since each Forth implementation 
treats the bits within a variable in the appro- 
priate way for the given host But when we 
extend Forth with new data objects and as- 
sociated operations, we must give these 
host-specific concerns their due. 

Now that 32-bit processors are becom- 
ing commonplace, there is more sensitivity 
to how variables and constants are imple- 
mented. The porting effort for variables and 
constants will be increasingly difficult. 
However,muchofthecodeintendedfor 16- 
bit variables should work when 32-bit vari- 
ables are used instead. 

If the bit- width property of variables and 
constants is important for our applications, 
then we should not use the usual Forth 
operators. Instead, we should use new 
compiler directives like Le that can com- 
pile the correct operation (@ or D@) for a 



given host. See Mitch Bradley's discus- 
sion in Forth Dimensions (BRA87) for a 
complete treatment of this subject. 

New Objects 

New Forth data objects are the primary 
concern. How can they be designed for 
ease of porting? 

Along with their associated opera- 
tions, new data objects depend on the host 
architecture. This is one of the major 
sources of all porting problems. Among 
such host peculiarities are bit-processing 
widths and word-alignment require- 
ments. 

Executable routines apart from data 
structures are more portable, relatively 
speaking. When kernel routines generate 
and manipulate addresses, they do so cor- 
rectly for the host computer. Higher-level 
routines remain host independent when 
they engage those kernel routines for their 
address manipulation needs. 

In this way, data objects with simple 
layouts are often source-code compatible 
across all hosts. This can happen because 
these objects avoid address manipula- 
tions not performed automatically by the 
Forth kernel. Examples include variables 
and constants. In contrast, arrays are a 
porting problem because of their more 
expansive layout and the need for a pro- 
grammer-supplied, element-addressing 
operation. 

But can we really avoid manipulating 
addresses in high-level code? If not, we 
should at least try to minimize the adverse 
effects of address manipulation on porta- 
bility. 

Object-Oriented Techniques 

The broadening of our perception of 
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an object to include its associated opera- 
tions is the key to object-oriented program- 
ming. In the same way that local variables 
are the private resources of their associated 
routine, object-oriented operations are 
subordinate to a given type of object. Ac- 
cordingly, they are the methods belonging 
to an object 

(Sharing of operations is possible, 
however, unlike sharing of local variables. 
This sharing is restricted to a hierarchical 
data typing system. So operations are not 
sharable by all objects, but only those 
which are a subclass of the superclass for 
which the methods have been defined. The 
process of sharing methods down through 
the ranks of object types is known as in- 
heritance.) 

Object-oriented languages treat objects 
and their associated operations as if they 
were one entity. Those operations exist 
only within the context of the object 
Within the implementation of the object 
those operations are accessible. Within the 
application, they are referenced via a 
method-selecting operator or message. For 
typical Forth purposes, this message 
sender is an executable routine that leaves 
a value (message) on the stack for the 
object to process at run-time. To make a 
reasonable response, the object must be 
able to invoke a corresponding method for 
each message received. 

We can parallel these techniques in 
Forth in many ways (see bibhographic ref- 
erences). One way is to include all the 
object-specific operations in the DOES> 
portion of the declarator (HAM86). Each 
operation can be a separate case in a CASE 
statement. Such an object will expect a flag 
(message) on the stack, and will use it to 
select the correct operation to perform. 

By including object-specific opera- 
tions as part of the declarator, we isolate 
the porting effort to the reformulation of 
the object declarator. The message-gen- 
eration operations will usually port easily, 
since they can simply be constants. 

But a change of syntax has to occur as 
well. As expected, we lose direct control 
over which operator is compiled. Instead 
of specifying the object-specific opera- 
tion, we now have to send to the object a 
message indicating what kind of operation 
is intended. The resulting syntax is prefix 
(method-selector followed by the object) 
rather than postfix. 

While I consider the prefix syntax a 
distinct disadvantage of an object-oriented 



language, there are significant advantages. 
Eliminating object-operator mismatches 
and reducing the need for a proliferation of 
object-specific operators (L@ , c@ , w@ , etc.) 
are two of these benefits. 

Note that object-oriented techniques do 
more than detect type mismatches — they 
prevent them! (This is already true for 
constants, where you never get the c^portu- 
nity to use C@ ot D@ in place of the @ that is 
compiled inside constant.) 

One correctable problem with object 
orientation is that it can encapsulate opera- 
tors in an object so well that they are not 
reusable by other objects. An inheritance 
capability is usually offered to counteract 
this restriction. But why deny reusability, 
only to permit it again in a restricted form? 
This strikes me as similar to the debate over 
enforced data typing, something Forth 
never seems to have acquired. 

To aid our freedom of choice, I will be 
offering a form of Forth data typing that can 
be fine-tuned with respect to its restrictive- 
ness. By choosing to overload operators 
and use well-known vocabulary refine- 
ments, it is possible to introduce an ap- 
proximation of inheritance into this object- 
oriented data typing scheme. It, too, is 
adjustable in terms of its restrictiveness: 
restrictions may be hierarchical (like OOP 
languages), or there may be no restrictions, 
or there may be restrictions that fall some- 
where between these two extremes. 

Revisiting Ham's Arrays 

In my opinion, important experiments 
with object-oriented techniques were 
kicked off by Michael Ham, even though he 
makes few claims to object orientation 
(HAM86). Rather, he applied such tech- 
niques in his array declarator. By creating 
single-element arrays, you will see that 
Ham already supports the creation and 
processing of multiple data types, using a 
single type/object/array declarator. Degen- 
erate cases of arrays can simply be used to 
create instances of variables, doubles, and 
anything else, as the following code illus- 
trates (FOR is Ham's name for his array 
declarator): 

: VARIABLE 

1 CELL FOR ; 
VARIABLE COUNT 

: DOUBLE 

1 DOUBLE FOR ; 
DOUBLE DOLLARS 



: 20CSTRING 

20 BYTES FOR ; 
20CSTRING NAME 

Another advantage is that instances of 
objects so defined are forced to share cer- 
tain characteristic properties. For ex- 
ample, each instance of a variable defined 
in this manner will contain an extra byte 
value reflecting the array type (necessary 
to properly index a mixture of array types 
with one array declarator). With this extra 
information. Ham can more easily estab- 
lish a data typing scheme: his operators 
expect objects like these to contain ele- 
ment-identifying information at the same 
relative address. 

Ham uses overloaded method selec- 
tors, such as GET and PUT, to reference 
the correct fetch and store operation for a 
given type of object in an array. While this 
ehminates the need to remember object- 
specific fetch and store operators, the 
general loss of a postfix (object-operator) 
syntax is a dear one. See Terry Raybimi's 
FORML paper (RAY87) for an excellent 
description of the problems that resulted 
from his trial use of a prefix syntax. 

Data Abstraction Techniques 

Hiding implementation details behind 
a simpler interface is not a strange Forth 
technique: it is the Forth programming 
model (factoring). In Forth, this technique 
applies to executable routines as well as 
data objects. For example, word has to 
take into account the layout properties of 
the text input buffer and the disk block 
buffer (one may be null-terminated). 
However, operations that reference word 
need not be concerned with the layout of 
the buffer. So word hides whether input 
came from the command-line buffer, a 
disk block buffer or, possibly, a text file. 

The declarator that creates constants 
(CONSTANT) also represents the advan- 
tages of abstraction. With a CREATE 
phrase to determine the layout of the con- 
stant and a DOES> phrase to interpret that 
layout the declarator CONSTANT encap- 
sulates all the object-specific processing 
required for constants. In this way, most 
details of an object's layout can remain 
hidden to routines other than the declara- 
tor. 

Constants are not a good example of 
data abstraction, however, since they not 
only interpret the object they act upon it 
by moving a value onto the stack. 
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TOTALCONTROL 

with LMI FORTH " 




For Programming Professionals: 

an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 

For Development: 

Interactive Forth-83 Interpreter/Compilers 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 400 page manual written in plain English 

• Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 

For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

• No license fee or royalty for compiled applications 

For Speed: C Forth Application Compiler 

• Translates "high-level" Forth into in-line, optimized 
machine code 

• Can generate ROMable code 

Support Services for registered users: 

• Technical Assistance Hotline 

• Periodic newsletters and low-cost updates 

• Bulletin Board System 

Call or write for detailed product Information 
and prices. Consulting and Educational Services 
available by special arrangement. 



m 



Laboratory Microsystems Incorporated 

Post Office Box 10430, Marina del Rey, CA 90295 
Pfione credit card orders to: (213) 306-7412 



Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 765V1665 
UK: System Science Ltd., London, 01-248 0962 
France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 
Japan: Southern Pacific Ltd., Yoliotiama, 045-314-9514 
Australia: Wave-onic Associates, Wiison, W.A., (09) 451-2946 



The real objective is to hide the implem- 
entation (layout properties) of an object 
behind a simpler interface. The application 
of this technique also helps reduce the 
porting effort, as will be shown. 

Data abstraction differs from object 
orientation, because methods need not be 
considered subordinate to an object. The 
major work required to abstract an object 
takes place in the basic operations serving 
the object. Those basic operations interpret 
all the peculiarities of the data structure in 
order to provide simplified access to them. 
Other operations can use this simplified 
interface to perform — in a less object- 
specific manner — the remaining process- 
ing of the object. 

The operations (or methods) primarily 
responsible for abstracting objects need to 
be tightly coupled to the associated objects. 
Methods that can be shared across objects 
need to be more loosely coupled to the 
associated objects. 

Naturally, the initial operation is a good 
place to do the abstraction work, locating it 
in theDOES> phrase of the object declara- 
tor. 

Using this approach to create a counted- 
string data type, we would be obliged to 
include a COUNT-like operation in the 
DOES> phrase of the definer, as follows: 

: "COUNTED-STRING 

CREATE PAD HERE OVER 
Ce H- DUP 
ALLOT CMOVE 
DOES> DUP C@ SWAP 1+ ; 

Once defined correctly for a given host, 
this definition produces string variables 
that can be printed by TYPE without an 
intervening (host-specific) COUNT opera- 
tion. 

Until we are able to perform all string 
operations using the object's external inter- 
face, data abstraction is not completely re- 
alized. A more wholehearted attempt at ab- 
stracting strings would support more string 
operations, including reliable string con- 
catenation. To do so, the initial operation 
should hide the object's layout better. For 
example, a string concatenation operation 
should not have to change, even if the 
maximum-count were to be alloted two 
bytes rather than one. 

Figure One is a more abstract implem- 
entation of twice-counted strings. Twice- 
counted stiings include storage for two 
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counts: the maximum count and the cur- 
rent count. The variable MaxCount pro- 
vides a simpler interface for accessing the 
object's maximum count property. This 
variable can be accessed easily, whereas 
accessing the actual byte(s) in the data 
structure would require a string-specific 
operation. Also shown is Get2CSt ring 
and Concat2CString. One allows the 
input of a twice-counted string and the 
other performs string concatenation be- 
tween a character array and a twice- 
counted string. 

Note that existing counted-string op- 
erations can be shared by twice-counted 
strings. Such operations include TYPE 
and -TRAILING. 

Once you have verified that Twice- 
CountedString works properly on a 
new host, Get2CString is certain to 
work as well. 

However, new syntax dependencies 
are introduced: Get2CString assumes 
that the value of MaxCount has been set 
properly prior to its execution. The way to 
guarantee this is through a syntax rule: Use 
Get2CString directly after a reference 
to a twice-counted string. A similar syntax 
rule should be applied to Con- 
cat2CString. 

The introduction of new syntax re- 
quirements are part of the problems we 
often encounter when applying data ab- 
straction and object-oriented techniques. 
For example, few message-passing, prefix 
syntaxes allow a consistent version of the 
following Forth code: 

CURRENT @ 
- - - -> ? 

At least in most of the current Forth 
implementations of object-oriented prefix 
syntaxes (see bibliographic references), 
GET GET CURRENT will not perform the 
same function. What does work is: 

GET CURRENT @ 

although it is an unpleasant mixture of 
prefix, message-passing syntax and stan- 
dard postfix syntax. 

Other Valuable Abstractions 

Although we have discussed data-ab- 
straction techniques useful for hiding the 
details of an object's implementation, of- 
ten host peculiarities are also contained in 



those implementations. We need to deal 
with those host peculiarities using abstrac- 
tion techniques once more. 

In genei^, two forms of abstraction are 
important, data abstraction and host ab- 
straction. To make (^rations reusable 
across several objects (or several versions 
of the same object), abstract objects. To 
make all data objects wwk properly across 
several host computers, abstract host com- 
puters. 

Since the abstraction of the host can be 
handled separately, it can and should be 
solved apart from the abstracting of objects. 
We should be able to use this code within 
our apphcations so they can be transported 
easily to substantially different hosts. 

Conclusions 

Although we have forayed deeply into a 
couple of timely design topics, the discus- 
sion has identified the leading factors that 
interfere with object portability: 

1. Host pecularities, such as bit-processing 
widths. 

2. Object peculiarities that a variety of 
operations depend on in order to work. 

A way to overcome these defects has 
also been suggested: 

1. Hide object-implementation details with 
data-abstracting techniques to minimize 
the amount of code that needs to change. 

2. Identify the implementation details re- 
garding an object that are really host par- 
ticularities, and hide those host particulari- 
ties under another suite of host-abstracting 
routines. 



These two, cascaded layers of abstrac- 
tion — objects and hosts — should bring 
about nearly optimal efficiency and porta- 
bility of data design. 

In the next instalhnent, alternative 
ways of performing address arithmetic are 
suggested, so that address arithmetic in 
general is rendered portable. This will 
help substantially with Forth's abstrac- 
tion of the host computer. 

We also have explored various ways to 
implement some of the forms that object- 
oriented extensions to Forth have tsicen. 
Progress has been made using multiple 
code fields (SHA79), placing all the op- 
erations for an object within its declarator 
(HAM79), and operator-lookup tables 
(RAY79). I favor preserving postfix syn- 
tax at any cost, which seems to be the 
direction of Terry Raybum as well. 
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VARIABLE MaxCount 

: TwiceCountedString ( maxbytes — ) 
CREATE C, C, 
DOES> ( adr count — ) 

DUP C@ MaxCount ! 1+ 
DOP C0 SWAP 1+ 

: Get 2CSt ring ( adr count — ) 

DROP ( the old string length is ignored) 

MaxCount 8 MIN EXPECT ; 

Concat2CString ( adr count dest-adr dest-count — ) 

2 PICK OVER + ( totalcount — ) 
MaxCount @ MIN ( validtotalcount — ) 

DUP 3 PICK C! ( C! is object-specific, O abstraction) 
OVER - ( adr count dest-adr dest-count movecount — ) 
>R + 1+ SWZVP DROP R> ( adr dest-adr+ movecount — ) 
CMOVE ( CMOVE is also object-SE>ecif ic, O abstraction) ; 



Figure One. 'Abstract' version of twice-counted strings. 
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I->et's talk. Let's really talk about 
ideas and their presentation. That is the 
premise behind Real-Time Conferences, 
or RTCs, on the GEnie Forth RoundTable. 
If you are not participating in these confer- 
ences, you are depriving yourself of a 
unique experience. 

The conferences can be broken into 
three distinctly different categories. The 
regular Thursday night Figgy Bar is a free 
forum that resembles a food-fight of ideas. 
I must confess, I usually am the sysop 
responsible for these exercises in chaos, 
though Dennis Ruf fer has had his fair share 
of sitting in as meeting leader. The central 
theme of these Thursday night (9:30 p.m. 
Eastern) meetings is anything goes, as long 
as the discussion involves Forth or items of 
interest to the Forth community. Such 
items have included image processing, 
radar control, robotics, chapter activities, 
standards, and comp.lang.forth on Usenet 

Sunday night (8:30 p.m. Eastern), Le- 
onard Morgenstem conducts his Question- 
and-Answer Figgy Bar for intermediate 
and beginning Forth programmers. His 
fu-st full conference was on arrays, and I 
cannot imagine anyone involved with 
Forth not gaining insight frtMti the presen- 
tation. Leonard became a sysop because of 
his unselfish desire to share his knowledge 
of Forth, and it is apleasure to observe him 
in his natural element. Do not let the stated 
target group of the Sunday night sessions 
dissuade you from attending — I can abso- 
lutely promise, these are for anyone inter- 
ested in learning more about Forth. 

The third category is our guest confer- 
ences. These represent a marvelous oppor- 
tunity to rub elbows with the movers and 
shakers of Forth while sitting comfortably 
at our own keyboards. Guests to date have 



been Don Colbum ("The Sacred Cows of 
Forth," October 1987), Gary Feierbach 
("FOTth and the Super8," April 1988), John 
Hayes and Marty Fiaeman of Johns- 
Hopkins Applied Physics Lab ("FR1SC3 
32-bit Forth Computer," May 1988), and 
Mahlon Kelly ("Forth as a Teaching Tool," 
July 1988).Bythetimethismakes print, we 
should have had a guest conference with 
Mitch Bradley. 



'^Thursday night's 
Figgy Bar resembles a 

food-fight of ideas,'* 



What wonderful experiences these 
guest conferences have been. The rest of 
this column is devoted to the opening 
comments that started each of them. 

Don Colburn 
Creative Solutions, Inc. 
October 1987 

<[Don Colbum]> "I was wondering if 
many people had a chance to read the file 
that Ward uploaded here for me. It had 
some of my thoughts on this topic. Perhaps 
we could conduct a poll of what topics 
would be of most interest I'll number them: 
1) 16-bitness, 2) text files, and 3) system 
interfaces. How about everyone simply 
entering the number they would most like to 
talk about right now." 

Conclusion of the remarks Don is referring 
to: 

Any new standardization effort for 
Forth must address itself to both tradi- 



tional 16-bit "controller" and newer 
32-bit "workstation" environments. 
The effort should be conducted by a 
highly qualified, small team who are 
compensated for their efforts by a 
consortium of interested individuals, 
groups, companies, and vendors. The 
team should concentrate on develop- 
ing a formal specification for the 
minimum possible set of words. The 
words should be specified independ- 
ent of stack width or address space. 
The goal of the team should be to 
characterize current practice rather 
than institutionalize new methods. 

The team should solicit the widest 
possible range of inputs from the 
Forth community. Submission of 
materials, however, should only be 
presented to the team in written form, 
accompanied with compelling writ- 
ten arguments in favor of the submis- 
sion. The team should produce at 
least one draft standard which is dis- 
tributed by the consortium. Both draft 
and final standard documents should 
be copyrighted by the consortium, 
and be distributed for a fee to defray 
costs. 

<[DonColbum]> "Let's talk about 16- 
bitness, and text files and then discuss 
'other' categories. 

"I think Chuck Moore presents a very 
good case for 16-bitness, for controller 
applications. A lot of people continue to be 
confused over the applicability of 16-bit 
systems on workstation computers. I note 
that both Alan and Gerry have worked 
with 32-bit systems. Is this still an issue? 

"My only point is that I'd like to avoid 
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having to explain for the lOOth-or-so time 
at the next standards meeting why I find the 
suggestion that I precede every @ with a L@ 
or some other silly suggestion/«c7. Glad to 
see that this may be less of an issue than I' ve 
been told it was." 

Gary Feierbach 
Inner Access 
AprU 1988 

<[GARY-F]> "Greetings. First I will 
start with some implementation notes. 

"The 8K nucleus contains the follow- 
ing: all good Forth words, including multi- 
tasker, double number set, things like 
3DUP. 4DUP, BETWEEN, WITHIN, String 

words, and at least a few words that are 
quite obscure and useless outside the nu- 
cleus. But, the 8K nucleus contains no 
heads! The 8K development ROM has 
those, along with a Forth-style structured 
assembler with the entire Super 8 instruc- 
tion set (a lot) and words that compile code 

like BEGIN, UNTIL, WHILE, REPEAT, 

IF, ELSE, THEN. The development ROM 
also contains disk I/O words for using the 
PC as a file server (block, etc.) and some 
other miscellaneous stuff. 

"The Super 8 itself runs at 20Mhz, but 
this is misleading to those not familiar with 
the flim-flam of 1-chip micro makers: it is 
immediately divided by 2 on board the 
chip, and all timings in the manual are 
related to this lOMhz clock. 

"It is still quite fast, however, about 2.5 
times faster than my PC that runs at 
4.77Mhz; on the other hand, it isn't aNovix 
chip so don't get too excited. This is a $7 
item to go into automobile dashboards or 
washing machines. It contains two counter 
timers, a UART, five eight-bit parallel 
ports (four are bit-programmable), a DMA 
channel, vectored interrupts, 277 general- 
purpose registers, and a partridge in a pear 
tree. 

"The implementation is as close to the 
F83 public-domain implementation as 
possible." 

John Hayes and Marty Fraeman 
Johns-Hopkins University 
Applied Physics Lab. 
May 1988 

< [John&Marty]> "Over the past couple 
of years, we have designed a number of 32- 
bit Forth processor chips. We call our chips 
FRISCs (Forth Reduced Instruction Set 
Computers). Tonight we want to talk about 



our latest effort, FRISC 3. To find out more 
about FRISC 1 and2, seethe7986FO/?ML 
Conference Proceedings or the 1987 
Rochester proceedings. 

"FRISC 3 is a word-addressed machine 
(i.e., no bytes). All internal elements of the 
chip are fully 32 bits wide. The top portions 
of the parameter and return stacks are 
cached on chip, to improve performance 
and retain a single path between memory 
and the CPU. 

"The FRISC 3 instruction set consists 
of eight instructions in three categories: 

control floM> instructions 
call 
branch 

conditional branch 
loadi store instructions 
load 
store 

load address low 
load address high 

other 

microcode 

"All eight instructions take one clock 
cycle to execute except for load and store, 
which take two cycles. All FRISC 3 in- 
structions are 32 bits wide. The three in- 
struction formats are shown in Figure One, 

"The three msbs of the instructions se- 
lect one of the instruction types. In the 
control flow instructions, the remaining 29 
bits are an absolute destination address. In 
load and store instructions, the 1 6-bit offset 
is added to Rl to form an address. R2 is the 
destination of load instructions and the 
source for stores. The load address instruc- 
tions make the same address calculation 
just described, but load the address into R2 . 
In the microcode instruction, there is a 16- 
bit ALU control field instead of the offset 
field. The microcode implements most 
Forth primitives (i.e., dup, OVER, +, <, 
etc.). Both the load/store and microcode 
instructions have a return bit." 

Mahlon Kelly 

co-author, Forth: A Text and Reference 
July 1988 

<[Mahlon]> "I would like to put for- 
ward the idea that Forth is an excellent 
language for teaching introductory courses 
incomputCTS. Infact,thalitisby far the best 
language available. 

"Most languages were developed for 
use on mainframes, and although the usual 



stated reason for their development is to 
make it easy for humans to use the ma- 
chines, another is to protect the machines 
from humans. Thus, those languages are 
designed to prevent users from being 
aware of the equipment itself. That stands 
in the way of students really understanding 
how computers work. 

"Forth does the opposite. The mote 
you know about the machine, the better 
you can use Forth. Thus, the student is en- 
couraged to learn not only about the lan- 
guage, but about computers. And since 
Forth is interactive. Forth encourages the 
best type of learning, that is, learning from 
mistakes. 

"Direct memory and register access are 
both available, and perhaps more impor- 
tant is the use of any desired number base. 
It is very easy to teach about binary, octal, 
decimal, and hex arithmetic. It is very easy 
to teach about logical operators. And it is 
even very easy to introduce assembly lan- 
guage. 

"Perhaps most importantly , it is easy to 
teach about machine and assembly in- 
structions, and to get across the differ- 
ences among machine, assembler, and 
higher-level languages. In the first lecture 
of my course, I teach how to define 
SQUARE DUP * ; 

"Then I have them look at and 
disassemble DUP and *. Now when they 
program, they know what they are doing to 
the machine. They do this while sitting at 
computers. 

"I have been told by one M.S. student 
in computer science that after my Forth 
course (which he obviously took to learn 
the language, not computers), he had the 
equivalent level of understanding of com- 
puters of a third-year student in comp. sci. 
The course assumes no background. 

"Questions: Are these ideas correct, or 
should we continue to teach introductory 
Pascal, BASIC, Fortran, etc.? How is 
Forth best taught — is it best to teach first 
how it works, or how to use it? How can we 
convince computer science departments 
of Forth's value, not only as a language but 
as a teaching tool?" 

Hope to see you at our next Real-Time 
Conference where we can talk — really 
talk — about Forth. 

(Figure One on next page) 
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Type:3 


Address:29 








Type:3 


Return:! Rl:4 


R2:4 


Stack:4 


Offset 16 


Type:3 


Return: 1 Rl:4 


R2:4 


Stack:4 


ALU: 16 



Figure One. FRISC 3's three instruction formats. 



(Screens continued from page 25.) 



( $TRAILING- 0$ chr — 1$ 








> 


( Discards trailing characters chr from the string 0$ on the 


) 


( string stack, returning the string 1$. 








) 


: $TPAILING- ( 0$ chr — 1$ ) 










$P@ $CNT TUCK + OVER 




( 


Start at end 


) 


?D0 DUP C@ 3 PICK <> 




( 


Not equal? 


) 


IF LEAVE 




( 


Get out 


) 


THEN 1- SWAP 1- SWAP 




( 


Dec addr, cnt) 


LOOP DROP NIP $LEFT ; 




( 


Trunc 


) 


( $TRAILING+ 0$ n chr ~ 1$ 








) 


( Pads the string 0$ on the string stack with 


n 


trailing 


) 


( characters chr, returning the string 1$. If 


n 


is less than 


) 


( the length of 0$, 0$ is left truncated to n 


characters . 


) 


: $TRAILING+ ( 0$ n chr — 1$ ) 










$CNT ROT 2D0P > 




( 


cnt > n? 


) 


IF -ROT 2DR0P $I£FT 




( 


Truncate 


\ 
/ 


ELSE SWAP - PAD 1+ OVER 3 ROLL FILL 




( 


Ugh. 


) 


PAD C! PAD $@ $SWAP $APPEND 




( 


Tack it on 


) 


THEN 










( $LEADING- 0$ chr ~ 1$ 








) 


( Discards leading characters chr from the string 


0$ on the 




( string stack, returning the string 1$. 








) 


: $LEADING- ( 0$ chr ~ 1$ ) 










$P@ COUNT TUCK 




( 


addr cnt 


) 


?D0 DROP DUP C@ 2 PICK <> 




( 


If not chr 


) 


IF I LEAVE 




( 


Leave offset 


) 


THEN 1+ 




( 


addr+1 , flag 


) 


LOOP -ROT 2DR0P ?DUP 




( 


Something? 


) 


IF $CNT SWAP - $RIGHT 




( 


Strip chr 


) 


THEN 




( 


No leading 


) 


( $LEADING+ 0$ n chr — 1$ 








) 


( Pads the string 0$ on the string stack with 


n 


leading 


) 


( characters chr, returning the string 1$. If 


n 


is less than 


) 


( the length of 0$, 0$ is left truncated to n 


characters . 


) 


: $LEADING+ ( 0$ n chr ~ 1$ ) 










$CNT ROT 2DUP > 




( 


cnt > n? 


) 


IF -ROT 2DRCS' $RIGHT 




( 


Truncate 


) 


ELSE SWAP - PAD 1+ OVER 3 ROLL FILL 




( 


Ugh. 


) 


PAD C! PAD $@ $APPEND 




( 


Tack it on 


) 


THEN 











(Screens continued in next issue.) 



BRTTE I 
FORTH I 

% 

x 

INTEL I 
8031 I 

i MICRO- 
CONTROLLER! 




— FORTH-79 Standard Sub-Set 
—Access to 8031 features 
—Supports FORTH and machine 

code interrupt Inandlers 
—System timekeeping maintains 

time and date with leap 

year correction 
—Supports ROIVI-based seif- 

starting applications 



COST 

1 30 page manual — $ 
8K EPROM with manual— $1 

Postage paid in North America, 
Inquire for license or quantity pricing. 



•:::«-:-:-:<-:s-:-:-»x-»>x-:.>>:-:-:-:-:-x-:-:-w 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 
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FIG 

CHAPTERS 



The FIG Chapters listed below 
are currently registered as active 
with regular meetings. If your 
chapter listing is missing or incor- 
rect, please contact Kent Saf ford at 
the FIG office's Chapter Desk. 
This listing will be updated in each 
issue of FortA Dimensions. If you 
would like to begin a FIG Chapter 
in your area, write for a "Chapter 
Kit and Application." Forth Inter- 
est Group, P.O. Box 8231, San 
Jose, California 95155 

U.S.A. 

• ALABAMA 
Huntsvilk Chapter 
Tom Konantz 
(205)881-6483 

• ALASKA 

Kodiak Area Chapter 

Horace Simmons 
(907)486-5049 

• ARIZONA 
Phoenix Chapter 

4th Thurs., 7:30 p.m. 
AZ State University 
Memorial Union, 2rKi floor 
Dennis L. Wilson 
(602) 956-7578 

• ARKANSAS 

Central Arkansas Chapter 

Little Rock 

2nd Sat., 2 p.m. & 

4th Wed., 7 p.m. 

Jungkind Photo, 12th & Main 

Gary Smith (501) 227-7817 

• CALIFORNIA 

Los Angeles Chapter 
4th SaL, 10 a.m. 
Hawthorne Public Library 
12700 S.Grevillea Ave. 
PhiUip Wasson 
(213) 649-1428 



North Bay Chapter 

2nd Sat., 10 a.m. Forth, AI 
12 Noon Tutorial, 1 p.m. Forth 
South Berkeley Public Library 
George Shaw (415) 276-5953 

Orange County Chapter 
4th Wed., 7 pjn. 
FuUerton Savings 
Huntington Beach 
Noshir Jesung (714) 842-3032 

San Diego Chapter 

Thursdays, 12 Noon 
Guy KeUy (619)454-1307 

Sacramento Chapter 
4th Wed., 7 p.m. 
1708-59th St., Room A 
Tom Ghormley 
(916) 444-7775 

Silicon Valley Chapter 

4£h Sat., 10 a.m. 

H-P Cupertino 

Bob Bait (408) 435-1616 

Stockton Chapter 

Doug Dillon (209) 931-2448 

• COLORADO 
Denver Chapter 
IstMon., 7pjn. 

Clifford King (303) 693-3413 

• CONNECTICUT 

Central Connecticut Chapter 

Charles Krajewski 
(203) 344-9996 

• FLORIDA 
Orlando Chapter 
Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 



Southeast Florida Chapter 

Coconut Grove Area 

John Forsberg (305) 252-0108 

Tampa Bay Chapter 

1st Wed., 7:30 p.m. 

Terry McNay (813) 725-1245 

• GEORGIA 
Atlanta Chapter 

3rd Tues., 6:30 p.m. 
Western Sizzlen, Doraville 
Nick Hennenfent 
(404) 393-3010 

• ILLINOIS 

Cache Forth Chapter 
Oak Park 

Clyde W. PWllips, Jr. 
(312) 386-3147 

Central Illinois Chapter 
Chamjwign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 

I/P Univ. Campus, B71 Neff 

Hall 

Blair MacDermid 
(219) 749-2042 

• IOWA 

Central Iowa FIG Chapter 
1st Tues., 7:30 p.m. 
Iowa State Univ., 214 Comp. 
Sci. 

Rodrick Eldridge 
(515)294-5659 

Fairfield FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 



• MASSACHUSETTS 
Boston Chapter 
3rd Wed., 7 p.m. 
Honeywell 

300 Concord, Billerica 

Gary Chanson (617) 527-7206 

• MICHIGAN 
Detroit/Ann Arbor Area 
4th Thurs. 

Tom Chrapkiewicz 
(313)322-7862 

• MINNESOTA 
MNFIG Chapter 

MiimeapoUs 

Even Month, IstMon., 7:30 
p.m. 

Odd Month, 1st Sat., 9:30 a.m. 
Fred Olson (612) 588-9532 
NC Forth BBS (612) 483-6711 

• MISSOURI 
Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St Louis Chapter 
1st Tues., 7 p.m. 
Thonihill Branch Library 
Robert Washam 
91 Weis Drive 
EllisviUe, MO 63011 

• NEW JERSEY 
New Jersey Chapter 
Rutgers Univ., Piscataway 
Nicholas Lordi 

(201) 338-9363 

• NEW MEXICO 
Albuquerque Chapter 
1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 

Jon Bryan (505)298-3292 
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NEW YORK 
FIG, New York 
2nd Wed., 7:45 p.m. 
Manhattan 

Ron Martinez (212) 866-1 157 

Rochester Chapter 

Monroe Comm. College 
Bldg. 7, Rm. 102 
Frank Lanzafame 
(716) 482-3398 

OHIO 

Cleveland Chapter 
4th Tues., 7 p.m. 
Chagrin Falls Library 
Gary Bergstrom 
(216)247-2492 

Dayton Chapter 

2nd Tues. & 4th Wed., 6:30 

p.m. 

CFC. 11 W. Monument Ave. 
#612 

Gary Ganger (513) 849-1483 
OREGON 

Willamette Valley Chapter 
4th Tues., 7 p.m. 
Linn-Benton Comm. College 
Pann McCuaig (503) 752-51 13 

TENNESSEE 

East Tennessee Chapter 

Oak Ridge 

2nd Tues., 7:30 p.m. 

Sci. Appl. Int'l. Corp., 8th Fl 

800 Oak Ridge Turnpike 

Richard Secrist 

(615) 483-7242 

TEXAS 

Austin Chapter 

Matt Lawrence 
POBox 180409 
Austin, TX 78718 

Houston Chapter 

3rd Mon., 7:45 p.m. 
Intro Class 6:30 p.m. 
Univ. at St. Thomas 
Russell Harris (713)461-1618 

• VERMONT 
Vermont Chapter 

Vergennes 
3rd Mon., 7:30 p.m. 
Vergennes Union High School 
RM 210, Monkton Rd. 
Hal Clark (802) 453-4442 

■ VIRGINLA 
First Forth of Hampton 
Roads 

William Edmonds 
(804) 8984099 



Potomac FIG 

Arlington 
1st Tues. 

Lee Recreation Center 
Joel Shprentz 

1 1918 Winterthur Ln., #107 
Reston, VA 22091 

Richmond Forth Group 
2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Donald A. Full 
(804) 739-3623 

• WISCONSIN 

Lake Superior Chapter 

2nd Fri.. 7:30 p.m. 

1219 N. 21st St., Superior 

Allen Anw^ay (715) 394-4061 

MAD Apple Chapter 

Bill Horton 
502 Atlas Ave. 
Madison, WI 53714 

INTERNATIONAL 

• AUSTRALIA 
Melbourne Chapter 

1st Fri., 8 p.m. 

Lance Collins 

65 Martin Road 

Glen Iris, Victoria 3 146 

03/29-2600 

BBS: 61 3 299 1787 

Sydney Chapter 

2nd Fri., 7 p.m. 

John Goodsell Bldg., RM 

LG19 

Univ. of New South Wales 

Peter Tregeagle 

10 Binda Rd., Yowie Bay 

2228 

02/524-7490 

• BELGIUM 
Belgium Chapter 
4th Wed., 8 p.m. 
Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 

Southern Belgium Chapter 

Jean-Marc Bertinchamps 
Rue N. Monnom, 2 
B-6290 Nalinnes 
071/213858 



CANADA 
EC FIG 

1st Thurs., 7:30 p.m. 
BCrr, 3700 Willingdon Ave. 
BBY, Rm. lA-324 
JackW. Brown (604) 596- 
9764 

BBS (604) 434-5886 

Northern Alberta Chapter 
4th Sat., 1 p.m. 
N. Alta. Inst of Tech. 
Tony Van Muyden 
(403) 962-2203 

Southern Ontario Chapter 

Quarterly, 1st Sat., Mar., Jun., 

Sep., Dec., 2 p.m. 

Genl. Sci. Bldg., RM 212 

McMaster University 

Dr. N. Sobitseff 

(416) 525-9140x3443 

Toronto Chapter 

John Clark Smith 

PC Box 230, Station H 

Toronto, ON M4C 5J2 

ENGLAND 

Forth Interest Group-UK 
London 

1st Thurs., 7 p.m. 

Polytechnic of South Bank 

RM408 

Borough Rd. 

D.J. Neale 

58 Woodland Way 

Morden, Surry SM4 4DS 

HOLLAND 
Holland Chapter 

Vic Van de Zande 
Finmark 7 
3831 JE Leusden 

ITALY 
FIG Italia 

Marco Tausel 

Via Gerolamo Fomi 48 

20161 Milano 

02/435249 

JAPAN 
Japan Chapter 

Toshi Inoue 

Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Kongo. Bunkyo 113 
812-2111 x7073 

NORWAY 
Bergen Chapter 

Kjell Birger Faeraas, 
47-518-7784 



• REPUBLIC OF CHINA 
(R.O.C.) 

Ching-Tang Tzeng 
PO Box 28 

Lung-Tan, Taiwan 325 

. SWEDEN 
SweFlG 
Per Aim 
46/8-929631 

• SWITZERLAND 
Swiss Chapter 
Max Hugelshofer 
Industrieberatung 
Ziberstrasse 6 
8152 Opfikon 

01 810 9289 

SPECIAL GROUPS 

• NC4000 Users Group 
John Carjjenter 
(415)960-1256 
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FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 25-27, 1988 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 

Forth and Artificial Intelligence 

Artificial intelligence applications are currently showing great promise when developers focus on 
easy-to-use software that doesn't require specialized expensive computers. Forth's design allows 
programmers to modify the Forth language to support the unique needs of artificial intelligence. 

Papers are invited that address relevant issues. Papers about other Forth topics are also welcome. 

Mail yovu- abstract(s) of 100 words or less to FORML Conference, Forth Interest Group, P.O. 
Box 8231, San Jose, CA 95155. 

Completed papers are due November 1, 1988. 

Conference Registration 

Registration fee for conference attendees includes conference registration, coffee breaks, and note- 
book of papers submitted, and for everyone rooms Friday and Saturday, all meals from lunch Friday 
through lunch Sunday, wine and cheese parties Friday and Saturday nights, and use of Asilomar 
facilities. 

Conference attendee in double room - $275 • Non-conference guest in same room - $150 • Children 
under 17 in same room - $100 • Infants under 2 years old in same room - free • Conference attendee 
in single room - $325 

Register by calling the Forth Interest Group business office at (408) 277-0668 or writing to: 
FORML Conference, Forth Interest Group, P.O. Box 8231, San Jose, CA 95155. 
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